支持中文的把普通字符串转成二进制字符串

Function str2bin(varstr)
str2bin=""
For i=1 To Len(varstr)
varchar=mid(varstr,i,1)
varasc = Asc(varchar)
If varasc<0 Then
varasc = varasc + 65535
End If
If varasc>255 Then
varlow = Left(Hex(Asc(varchar)),2)
varhigh = right(Hex(Asc(varchar)),2)
str2bin = str2bin & chrB("&H" & varlow) & chrB("&H" &
varhigh)
Else
str2bin = str2bin & chrB(Asc(varchar))
End If
Next
End Function

原文链接： http://blog.csdn.net/vince6799/article/details/706739