您可以使用以下代碼將列表框的內容保存為文本文件：
Dim file As String = "C:\path\to\file.txt" ' 設置文件路徑
Dim listBoxContent As String = String.Empty
' 遍歷列表框中的每一項，并將其添加到一個字符串中
For i As Integer = 0 To listBox1.Items.Count - 1
listBoxContent += listBox1.Items(i).ToString() & vbCrLf
Next
' 將字符串寫入到文本文件中
File.WriteAllText(file, listBoxContent)
上述代碼中，首先設置了要保存的文件路徑（C:\path\to\file.txt），然后遍歷列表框中的每一項，并將其添加到一個字符串變量中。最后，使用File.WriteAllText方法將字符串保存到指定的文本文件中。請確保您在使用前已經引入System.IO命名空間。
請注意，上述代碼將會覆蓋原有的文本文件內容，如果您希望追加到文件末尾而不是覆蓋，請使用File.AppendAllText方法。
