title: VBscript select case for combobox
body: <p>He there, I'm new to VB script and I am trying to make a select case to change an emailadress to a combobox choice. I know i'm thinking to easy but i need help with the direction. the combobox works but i cannot get the value chosen in the combobox to trigger the select case.</p>
  
  <pre><code>  Sub Item_Open()
  
    Set FormPage = Item.GetInspector.ModifiedFormPages("Message")
  
    Set Control = FormPage.Controls("Subject")
  
    Control.PossibleValues = "SPOED;STATUS;MANCO;KLACHT;TRANSPORT;TRACKING;INKOMEND;REPARATIE;RETOUREN;LADEN;MILKRUN"
  
    Set MyPage = Item.GetInspector.ModifiedFormPages("Message")
      Set Mail = MyPage.Item("Subject").Value
  
      Select Case Mail
          Case SPOED   
              Item.To = "hihi@blabla.com"         
  
          Case STATUS
              Item.To = "haha@blabla.com"
  
          Case else
              Item.To = ""    
  
      End Select
  
  End Sub
  </code></pre>