Necesito verificar si una "Variable" es igual a "uno de ciertos valores" para realizar ciertas tareas.
Por ejemplo si la variable "indice" es igual a 1, 5, 8 o 9 entonces...
Si conocen un código que reemplace a este:
If (indice=1) or (indice =5) or (indice=8) or (indice=9) Then
Por algo así :
If indice IN [1,5,8,9] Then
Gracias y saludos.
Puedes usar un case.
Sub Test()
Dim iNumero As Integer
iNumero = 4
Select Case iNumero
Case 1, 5, 8, 9
MsgBox "El número es valido: " + Str(iNumero)
Case Else
MsgBox "El número no es Valido"
End Select
End Sub
Saludos
Gracias, es una buena opción.