WAP中怎样过滤特殊字符？？

Function IsSpecial(StrData)                     '判断是否包含特殊字符
       Dim Str,Num,i,Code
       Str=StrData
       Num=Len(Str)
       For i=1 To Num
              Code=Ascw(Mid(Str,i,1))
              If (Code>=48 And Code<=57) Or (Code>=65 And Code<=90) Or (Code>=97 And Code<=122) Or (Code<0) Then
                     IsSpecial=False
              Else
                     IsSpecial=True
                     Exit For
              End If
       Next
End Function
-----------
上面是GB的

UTF怎么过滤？？？