查询Unicode码 .vbs

Do
	s=InputBox("输入你要查询的字符串","Unicode码查询")
	res = ""
	For i = 1 To Len(s)
		w=Mid(s,i,1)
		res= res & w & "(" & Hex(AscW(w)) & ":" & AscW(w) & ") "
	Next
	If Len(s)>0 Then MsgBox res
Loop Until(Len(s)<1)