在一文本框内 要求只输入中文简体如何实现

在一文本框内 要求只输入中文简体怎么实现
要求在文本框内只能输入简体中文 没有思路！请教了!

[解决办法]
简单的方法：

VB code

Private Sub Text1_KeyPress(KeyAscii As Integer)    If (KeyAscii > 13) Then KeyAscii = 0End Sub
[解决办法]
'汉字 16进制区间 B0A1-F7FE
'汉字10进制区间 45217--63486
'汉字区位: 16区位01-94 ---- 87区位01-94

Option Explicit
Dim aa$, Rtn&
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii <> 0 Then
     If KeyAscii = 8 Or KeyAscii = 32 Or KeyAscii = 44 Or KeyAscii = 46 Then '允许空格与退格,逗号与句号
     Else
        If Not ChkHZ(Chr(KeyAscii)) Then KeyAscii = 0: Exit Sub
     End If
  End If
End Sub

Public Function ChkHZ(ChkStr As String) As Boolean
  ChkHZ = False
  Rtn = Str2Dec(ChkStr)
  If Rtn >= 45217 And Rtn <= 63486 Then ChkHZ = True
End Function

Public Function Str2Dec(TxtStr$) As Long
  aa = Hex(Asc(TxtStr))
  aa = IIf(Len(aa) = 2, "00" & aa, aa)
  Str2Dec = Val("&h" & Left(aa, 2)) * 256 + Val("&h" & Right(aa, 2))
End Function