Visual Basic.NET - guardar en un txt

tengo q poder guardar un texto de un listbox en un TXT mediante un menu guardar. yo e insertado este codigo pero no funciona:

Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
Dim fecha As String
Dim partido As String
Dim texto As String

fecha = TextBox1.Text
partido = TextBox2.Text

texto = ListBox2.Items(fecha & partido)
SaveFileDialog1.Filter = "Archivos de texto (*.txt)|.txt*"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> "" Then
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
PrintLine(1, texto)
FileClose(1)
End If

End Sub
End Class

en los textbox se mete la fecha y el partido q se juega, los cueles se tienen q agregar al txt junto con la alineacion introducida en el listbox.

Prueba con ese codigo para escribir en el archivo.

Dim oSW As New StreamWriter("C:archivo.txt")
oSW.WriteLine("Linea de texto 1")
FileClose()
oSW.Flush()

Usa una variable donde este concatenado la linea de texto, y mandas solo la variable. Para usar el ejemplo Imports System.IO

Salu2.