Private Sub Command1_Click()
Dim s1 As String, s2 As String, c As String, mw As String
Dim i As Integer
s1 = Text1. Text
s2 = Mid(s1, 1, 1)
For i=2 To
c = Mid(s1,i,1)
If c>= "A" And c <= "Z" Then
If Then s2=s2 + c
Else
s2 =s2+ c
End If
Next i
mw =""
i=6
Do While i<= Len(s2)
mw = mw+Mid(s2,i,1)
Loop
Text2. Text = s2
Label1. Caption = mw
End Sub