Private Sub Command1_Click()

Dim a（1 To 20）As String

Dim n，m，i，j As Integer

Dims，s1，s2 As String

s1=Text1. Text：n=Len（s1）

m=0：s=""

For i=1 To n

    If Mid（s1，i，1）="" Or Mid（s1，i，1）="." Then

       m=m+1

       a（m）=s

       s=""

     Else

     End If

Next i

For j=1 To m

     n=Len（a（j））

     For k=1 To n

        If t﹥="a" And t<="z" Then

            s2=s2+t

        Else

            s2=s2+t

        End If

    Next k

    Text2. Text=Text2. Text+s2

    s2=" "

Next j

Text2. Text=Text2. Text & "."

End Sub