谁能给我个汉字内码转换函数？急！！！

[tomhuang]

需要一个函数，输入一个汉字或英文字母数字，得到汉字的内码或英文字母数字的ASCII码。成功后立即结帖给分！

[sob]

Function GBBIG5(sStr As String) As String
Dim STR
If CheckBIG(sStr) Then
STR = StrConv(sStr, vbFromUnicode, &H804)
GBBIG5 = StrConv(STR, vbUnicode, &H404)
Else
STR = StrConv(sStr, vbFromUnicode, &H404)
GBBIG5 = StrConv(STR, vbUnicode, &H804)
End If
End Function

给分吧!!!

[tomhuang]

找不到CheckBIG这个函数啊？？

[tomhuang]

我是这样调用的：
Private Sub Command1_Click()
Dim aa As String
aa = Trim(Me.Text1.Text)
Me.Text2.Text = GBBIG5(aa)
End Sub

[zhp80]

Function Limit_Only(ByVal x As Integer) As Integer
Select Case x
Case 8, 9, Asc("0") To Asc("9") '允许Tab,BackSpace和数字键
Limit_Only = x
Case Asc("A") To Asc("Z") '允许大写字符
Limit_Only = x
Case Asc("a") To Asc("z") '允许小写字符
Limit_Only = x
Case Else
Dim Value As Long
Value = (CLng(65536) + x) Mod 65536
If (CByte(Value \ 256) And &HA0) And (CByte(Value Mod 256) And &HA0) Then
Limit_Only = x
Else
Limit_Only = 0
End If
End Select
End Function

http://expert.csdn.net/Expert/topic/1554/1554027.xml?temp=.4562189