read from a file
write it out to a textbox

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim sw As IO.StreamWriter
        sw = IO.File.AppendText("c:\josh\josh3.txt")
        sw.WriteLine("hello there")

        sw.Close()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sr As IO.StreamReader
        sr = IO.File.OpenText("c:\josh\josh2.txt")
        TextBox1.Text = sr.ReadLine()
        Button1.Text = sr.ReadLine

        sr.Close()

    End Sub

3.5
60-66 even
'Each line triplet of DATA.TXT contains         DATA.TXT

70-76, even
The following steps calculate the amount of money earned in a walk-a-thon: