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