Tenho 5 option, ou seja option1, 2,3, e assim por diante, como faço para colocar essas opçoes dentro de um select case, naum  quero usar if..

 

 

desde já obrigado

O option retorna True (-1) ou False (0), então dá juntar o retorno de todos eles numa expressão misturando booleano com string e valor numérico:

 

Opt= (Option5 * -1 & Option4 * -1 & Option3 * -1 & Option2 * -1 & Option1 * -1)*1

Assim, seria 1 para option1, 10 para oprion2, 100 para option3 e assim vai...

 

Pode usar o Select Case assim:

   Select Case Opt
   Case 1
      'instrução 1
   Case 10
      'instrução 2
   Case 100
      'instrução 3
   Case 1000
      'instrução 4
   Case Else
      'instrução 5
   End Select

Bom, é apenas uma idéia, talvez exista outra mais prática, sei lá!

 

Mas ainda acho mais simples usar com o IF direto assim:

   If Option1 Then
      'instrução 1
   ElseIf Option2 Then
      'instrução 2
   ElseIf Option3 Then
      'instrução 3
   ElseIf Option4 Then
      'instrução 4
   Else
      'instrução 5
   End If

Elmo, boa tarde..

 

       Se tiver que usar desta forma, e aproveitando em parte a ideia do nosso amigo acima, voce pode concatenar os valores..

 

       VarSTr = cSTR(OPTION1.VALUE) + cSTR(OPTION2.VALUE) + cSTR(OPTION3.VALUE)  ETC..+

 

     If varstr = "101" then

     elseIf varstr "011" then..

 

 etc...