在VB（Visual Basic）中，可以使用多种方法将字符转换为ASCII码，以及将ASCII码转换为字符。以下是几种常见的方法：
方法1：使用`Asc`和`Chr`函数
`Asc`函数用于获取一个字符的ASCII码值，而`Chr`函数用于将ASCII码值转换为对应的字符。
```vb
Dim text1 As String = "Hello, World!"
Dim text2 As String = ""
For i = 1 To Len（text1）
text2 = text2 + Chr（Asc（Mid（text1, i, 1）））
Next
MsgBox text2
```
方法2：使用`Format`函数和`Hex`函数
可以将每个字符转换为其对应的十六进制表示，然后拼接成一个字符串。
```vb
Dim text1 As String = "Hello, World!"
Dim text2 As String = ""
For i = 1 To Len（text1）
text2 = text2 + Format（Hex（Asc（Mid（text1, i, 1）））, "0000"）
Next
MsgBox text2
```
方法3：使用循环和`Mid`函数
可以逐步提取每个字符，并转换为ASCII码，然后输出。
```vb
Dim a（） As String
Dim b As String
Dim c%
b = InputBox（"请输入要转换的字符", ""）
c = Len（b）
ReDim a（c） As String
For i = 1 To c
a（c） = Mid（b, i, 1）
Print "你输入的第" & i & "个字符" & a（c） & "的Ascii码是：" & Asc（a（c））
Next
```
方法4：将字符串转换为ASCII码序列
如果需要将一个字符串中的每个字符转换为其ASCII码，并输出，可以使用以下方法：
```vb
Dim s As String = "Hello, World!"
Dim t As String
For i = 1 To Len（s）
t = t & Chr（Asc（Mid（s, i, 1）） - 29）
Next
MsgBox t
```
方法5：处理双字节字符
对于双字节字符（如UTF-8编码的汉字），可以使用以下方法进行转换：
```vb
Public Function ASCII（ByVal chr As String） As Integer
Dim ecode As Encoding = Encoding.GetEncoding（"GB18030"）
Dim codeBytes（） As Byte = ecode.GetBytes（chr）
If IsTwoBytesChar（chr） Then
' 双字节码为高位乘256，再加低位
Return （codeBytes（0） * 256 + codeBytes（1）） - 65536
Else
Return codeBytes（0）
End If
End Function
Public Function Character（ByVal asc As Integer） As String
asc = asc + 65536
Dim asciiEncoding As Encoding = Encoding.GetEncoding（"GB18030"）
Dim bytes（） As Byte = asciiEncoding.GetBytes（Chr（asc））
Return System.Text.Encoding.Unicode.GetString（bytes）
End Function
Private Function IsTwoBytesChar（ByVal chr As String） As Boolean
Dim code As Integer = Asc（chr）
Return （code And &H80） = &H80
End Function
```
总结
以上方法涵盖了在VB中将字符转换为ASCII码以及将ASCII码转换为字符的基本操作。根据具体需求，可以选择合适的方法进行实现。