Visual Basic - compara codigo asci

Como puedo comparar con codigo asci una letra que se encuentra almacenada en una variable x tipo string... por ejemplo

if x = 103 to 123 then
sentencias
end if
o
select case x
case 34 to 56
sentencias
end selelct

Tomando en cuenta que los numeros escritos en los ejemplos serian el valor del caracter en la variable x en codigo asci, ya que si lo hago tal como esta me los toma como numericos.... de antemano gracias (Soy principiante en esto)

Dim x As String
x = "a"
If Asc(x) >= 97 And Asc(x) <= 99 Then
MsgBox "Exito!!"
Else
MsgBox "Error"
End If

Select Case Asc(x)
Case 97 To 99
MsgBox "Exito!!"
Case Else
MsgBox "Error"
End Select

José:

Esta función no sólo te dice si tiene la letra, además te dice en que posiicón está la primer aparición de ella:

Private Function TieneLaLetra(ByVal Letra As String, Cadena As String, ByRef iPos As Long) As Boolean
iPos = InStr(1, Cadena, Letra, vbTextCompare)
TieneLaLetra = (iPos > 0)
End Function

Para llamarla hacés lo siguiente
Dim iPos As Long, f as boolean

f=TieneLaLetra("x", "Excelente", iPos)
if f = true then msgbox "Tiene la letra enla posición: " & ipos

Saludos Ruri