Puedes usar un case.
Saludos
Código (vb) [Seleccionar]
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