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
 

unsigned int Largo(char * ptr){
unsigned int len=0;
 
while (*ptr++)len++;
return len;
}