VB转换句子

Private Sub Command1_Click()
Text1 = Replace(Replace(Text1, "*", "."), "-", ".")
End Sub

窗体上有有两个控件text1和command1代码如下：
Private Sub Command1_Click()
Dim i, j As Integer
Dim s As String
For i = 1 To Len(Text1.Text)
j = Asc(Mid(Text1.Text, i, 1))
If j > 64 And j < 91 Or j > 96 And j < 123 Then
s = s + Chr(j)
Else
s = s + "."
End If
Next i
Text1.Text = s

End Sub

程序运行的时候大小写均可。字母不进行转换，如果是其它字符就转换行"."
那个IF语句就是判断是不是字母。

Private Sub Command1_Click()
Dim a()
Dim str As String
Dim l
Dim i

l = Len(Text1)
str1 = Text1.Text
ReDim a(l)
For i = 0 To l - 1
a(i) = Mid(Text1, i + 1, 1)
If a(i) <> "*" Then
str = str + a(i)
Else
str = str + "."
End If
Next
Text2 = str