scegliere in un text icaratteri minuscoli

[zampa28]

Dim i As Integer
Dim MyVar As String
For i = 1 To Len(Text1.Text)
  If Asc(Mid(Text1.Text, i, 1)) >= 97 And Asc(Mid(Text1.Text, i, 1)) <= 122 Then
        MyVar = MyVar & Mid(Text1.Text, i, 1)
  End If
Next i
MsgBox (MyVar)
MyVar = ""