关于格式转换的问题

[dannicklee]

请问如何把一个字符串中的每一个字符先转换成十进制再转化成char类型。

[kimurakenshin]

Dim i As Integer, j As Integer
Dim Str As String, Str1 As String
Str = "I love you!"
For i = 1 To Len(Str)
j = Asc(Mid(Str), i, 1)
Str1 = Str1 + Chr(Asc(j))
Next i

[kimurakenshin]

把一个包含数字的字符转换成十进制:val("字符串")

把数值型的转换为字符型:str(数值)