Visual Basic - Equivalencias entre VB& y Clipper

Hola abro este post así, para no habrir uno para cada consulta.
En Clipper para si el primer caracter izquierdo es una de estas letras:
'"ABCDEFGHJKLMNPQRSUVW"

Utilizo:
IF Letra$"ABCDEFGHJKLMNPQRSUVW"

Si en VB6 utilizo:
IF Letra$"ABCDEFGHJKLMNPQRSUVW" Then
Me dice que en "ABCDEFGHJKLMNPQRSUVW", se esperaba Then o GoTo

Saludos cordiales.

Si no hay nada similar, ¿podría utilizar el siguiente código?

Letra = UCase(Mid(VaCifNif, 1, 1))
Letras = "ABCDEFGHJKLMNPQRSUVW"
If SiLetra(Letra, Letras) Then

Public Function SiLetra(ByVal Cadena1 As String, ByVal Cadena2 As String) As Boolean
Dim n As Single: nPos As Integer
nPos = 1
For n = 1 To Len(Cadena2)
If UCase(Cadena1) = UCase(Mid(Cadena2, nPos, 1)) Then
SiLetra = True
Exit For
Else
nPos = nPos + 1
End If
Next
End Function

La función no está mal (cumple con su cometido), pero la podrías abreviar un poco:

Public Function SiLetra(ByRef Cadena1 As String, ByRef Cadena2 As String) As Boolean
Dim iPos As Integer
iPos = InStr(1, Cadena1, Cadena2, vbTextCompare)
If iPos <> 0 Then SiLetra = True
End Function

Llamada a la función:
If SiLetra("ABCDEFGHJKLMNPQRSUVW", Left(Text1.Text, 1)) Then

Gracias P3L30N2009.
Saludos cordiales.