Imports System.io
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        'read in file
        Dim objReader As New StreamReader("C:\test.txt")
 
        Dim sLine As String = ""
 
        Dim lineCounter As Integer = 0
 
        Do
 
            sLine = objReader.ReadLine()
            If lineCounter > 0 Then
                TextBox1.Text = TextBox1.Text + sLine + System.Environment.NewLine
 
            End If
            lineCounter = lineCounter + 1
 
        Loop Until sLine Is Nothing
 
        objReader.Close()
 
    End Sub
End Class