在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變量中。
最后，我們使用一個循環遍歷字節數組，并將每個字節打印出來。
