VB.net copier le contenu d'un txt dans txtbox

'...

textbox1.Text = LireFichier("NomFichier.txt")

'...

Public Function LireFichier(ByVal NomFichier As String) As String

	Dim Chemin As String = Application.ExecutablePath
	Dim Position As Int32 = Chemin.LastIndexOf("\")
	Dim Dossier As String = Chemin.Substring(0, (Position + 1))
	Dim Chaine As New System.Text.StringBuilder

	Dim LeFichier As StreamReader = File.OpenText(Dossier & NomFichier)

	Do Until LeFichier.Peek = -1
		Chaine.AppendLine(LeFichier.ReadToEnd)
	Loop

	LeFichier.Close()

	Return Chaine.ToString

End Function