Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tiedosto As IO.StreamReader
        Dim nimi As String
        'luodaan tiedosto-olio
        tiedosto = New IO.StreamReader("C:\temp\testi.txt")
        'luetaan tiedostoa rivi kerrallaan kunnes tiedosto on loppu
        Do Until tiedosto.Peek() = -1
            nimi = tiedosto.ReadLine()
            MessageBox.Show(nimi)
        Loop
        'suljetaan tiedosto
        tiedosto.Close()