how to load text from file

[dcrew]

Dim str1 As String = My.Computer.FileSystem.ReadAllText(Application.Sta rtupPath & "\name.txt")
Dim str2() As String = str1.Split(Environment.NewLine)
For i = 0 To str2.Count - 1 Do
Dim str3() As String = str2( i).Split("=")
If str3( 0).ToString = "name" Then
TextBoxName.Text = TextBoxName.Text & Environment.NewLine & str3(1)
ElseIf str3( 0).ToString = "lastname" Then
TextBoxLastname.Text = TextBoxLastname.text & Environment.NewLine & str3(1)
End If
Next