Private Sub Command1_Click()Dim a As StringDim i As Integera = Text1.TextFor i = 0 To Len(a) - 1 Print AscW(Mid(a, i + 1, 1))Next iEnd Sub
用mid函数逐一提取,然后用asc函数转换
网上应该有直接调用的api