Private Sub Command1_Click()
If Text1.Text <> "" Then
MsgBox check(Trim(Text1.Text))
Else
MsgBox "不为空！"
End If
End Sub
Private Function check(ByVal st As String) As Boolean
Dim R As String
R = Trim(Str(st))
If R = StrReverse(R) Then
check = True '函数 返回 true
Else
check = False '函数 返回 false
End If
End Function

不是有人求

不知你们懂了没 ，反正我懂了。。。
　　　--来自具有诱惑力的小尾巴~　　　　　　　　　　　　　　　　　　　　　　　　　　　 来打我呀~来咬我呀~撅着PP让你来哟(>_<)　

恩 谢谢