您可以使用以下代码将列表框的内容保存为文本文件：
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方法。
