上次的函數有誤，這次的才正確支持中文。

'把普通字符串轉成二進制字符串
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