帮我编写一个程序吧！很急！！！

帮我编写一个程序吧！很急！！！
悬赏分：30 - 离问题结束还有 14 天 23 小时
编写一个大小写字母自动转换程序，当输入小写字母时，自动转换成大写字母，当输入大写字母时，自动转换为小写字母，当输入其他字符时，转换显示为“*”

Private Sub Form_Load()
MsgBox "aBcDeFG159HIJkl5mnOPQRS" & vbCrLf & Rstr("aBcDeFG159HIJkl5mnOPQRS")
End Sub

'通用函数
Private Function Rstr(ByVal sstr As String) As String
Dim TempStr As String
For i = 1 To Len(sstr)
If Asc(Mid(sstr, i, 1)) >= Asc("a") And Asc(Mid(sstr, i, 1)) <= Asc("z") Then
TempStr = TempStr & Chr(Asc(Mid(sstr, i, 1)) - 32)
Else
If Asc(Mid(sstr, i, 1)) >= Asc("A") And Asc(Mid(sstr, i, 1)) <= Asc("Z") Then
TempStr = TempStr & Chr(Asc(Mid(sstr, i, 1)) + 32)
Else
TempStr = TempStr & "*"
End If
End If
Next i
Rstr = TempStr
End Function

form中放置一个按钮和2个textbox，运行时在text1输入信息，点击按钮后在text2看到输出结果。

Private Sub Command1_Click()
Dim s