Visual Basic - mayusculas y minusculas

hola a todos
tengo el siguiente codigo :
Dim strname As String

strname = Fg2.Text

Select Case Left(strname, 3)

Case "MOD"

Call Modeletext
Call Modpretext
Call Modsubtext
Call Modbastext

Case "ELE"

Call Elesubtext
Call Elepretext
Call Elebastext

Case "SUB"

Call Subpretext
Call Subbastext

Case "PRE"

Call Prebastext

Case "BAS"

Call Basmattext

End Select


End Sub

Comparo una cadena que puede tener 3 numeros cualquiera
y lo que pasa es que al buscar MOD por ejemplo quiero me me traiga las cadenas igual indepèndientemente que sean mayusculas o minusculaspor ejemplo "mOD","mod",Mod", etc.
Espero me puedan ayudar.
Gracias

Hola de nuevo.... (mira en canalvisualbasic, jejeje).
Puedes probar esto:

Select Case Ucase(Left(strname, 3))

o bien

Select Case Left(Ucase(strname), 3)

que viene a ser lo mismo.

haz que ambas cadenas que compares esten todas en mayúsculas o minúsculas, ejemplo
a="Mod"
b="MOD"

if ucase(a)=ucase(b) then print a

saludos