Imports System.IO
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim objStreamReader As StreamReader
        Dim strLine As String
 
        'Pass the file path and the file name to the StreamReader constructor.
        objStreamReader = New StreamReader("C:\foo.txt")
 
        'Read the first line of text.
        strLine = objStreamReader.ReadLine
 
        'Continue to read until you reach the end of the file.
        Do While Not strLine Is Nothing
 
            Dim bar As String
            If (strLine.Length > 0) Then
 
                bar = strLine.Substring(0, 1).ToUpper & strLine.Substring(1, strLine.Length - 1)
 
                'Write the line to the textbox.
                TextBox1.Text = TextBox1.Text & bar & System.Environment.NewLine
            End If
            'Read the next line.
            strLine = objStreamReader.ReadLine
        Loop
 
        'Close the file.
        objStreamReader.Close()
 
        Console.ReadLine()
 
    End Sub
End Class