Comment générer un fichier .txt dans VB 2010?

Imports System.IO

Public Class EcrireUnFichier

	Public Sub EcrireUnFichier()

		Dim Dossier As String = ChercheDossier()
		Dim NomFichier As String = Dossier & "monfichier.txt"

		Dim LeFichier As New StreamWriter(NomFichier, True)

		LeFichier.WriteLine("Lupin")
		LeFichier.WriteLine(System.DateTime.Now.ToShortDateString)

		LeFichier.Close()

	End Sub

	Private Function ChercheDossier() As String

		Dim Parcourrir As New FolderBrowserDialog
		Dim Chemin As String = String.Empty

		With Parcourrir

			If (.ShowDialog = Windows.Forms.DialogResult.OK) Then
				Chemin = .SelectedPath
				Chemin &= "\"
			End If

		End With

		Return Chemin

	End Function

End Class