Private Function AscToChar(ByVal sAsc As String) As String
Dim iLen As Integer
Dim i As Integer
On Error GoTo err_Trans
AscToChar = ""
iLen = CInt(Len(sAsc) / 2)
For i = 0 To iLen - 1
If CInt("&H" & Mid(sAsc, i * 2 + 1, 2)) < &H20 Then
AscToChar = ""
Exit Function
Else
AscToChar = AscToChar & Chr(CInt("&H" & Mid(sAsc, i * 2 + 1, 2)))
End If
Next i
exit_Trans:
Exit Function
err_Trans:
AscToChar = ""
Resume exit_Trans
End Function
倚天杖