Private Sub Command1_Click()
Dim X As String
Dim I As Long
Dim S As String
Dim CH As String
X = Text1.Text
For I = 1 To Len(X)
CH = Mid(X,I,1)
If CH >= "a " And CH = "A" And CH