在VB中，可以使用Encoding类的GetBytes方法将字符串转换为字节数组。以下是一个示例代码：
Imports System.Text
Module Program
Sub Main()
Dim str As String = "Hello, World!"
Dim encoding As Encoding = Encoding.UTF8
Dim bytes As Byte() = encoding.GetBytes(str)
For Each b As Byte In bytes
Console.Write(b.ToString() + " ")
Next
End Sub
End Module
在上述代码中，我们首先定义了一个字符串变量str，然后创建了一个Encoding对象encoding，并使用UTF8编码对字符串进行编码。最后，使用encoding.GetBytes(str)方法将字符串转换为字节数组，并将结果保存在bytes变量中。
最后，我们使用一个循环遍历字节数组，并将每个字节打印出来。
