Private Sub Command1_Click()
Dim I As Integer
Dim lngChar As Long
Dim strTemp As String
For I = 1 To Len(Text1.Text)
lngChar = Asc(Mid(Text1.Text, I, 1))
If lngChar >= 65 And lngChar <= 90 Then
strTemp = strTemp & Chr(lngChar + 32)
Else
strTemp = strTemp & Chr(lngChar)
End If
Next