ผมกำลังหัด เขียน/อ่าน Text file ใน Visual basic 
โดยให้เปิดfile ชื่อ Text.txt แล้วเขียนคำว่า  "Test Write text file"
อีก บันทัดเขียนคำว่า ""Write line 2"
แล้วปิด File 
จากนั้นเปิด File ชื่อเดิมเพื่อนอ่าน 2 บันทัดที่เขียนไป มา แสดงหน้าจอ
แต่ Run ไม่ผ่าน ผมไม่รู้ว่า ผมผิดตรงไหน รบกวนผู้รู้ช่วยแก้ทีครับ 

Imports System.IO
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Filename As String = "Test.txt"
        Dim Wri As StreamWriter = New StreamWriter(Filename)
        Dim Rd As StreamReader = New StreamReader(Filename)
        Dim line As String = Rd.ReadLine()
        Wri.WriteLine("Test Write text file")
        Wri.WriteLine("Write line 2")
        Wri.Close()
        MessageBox.Show("Write Sucessful")
        line = Rd.ReadLine()
        MessageBox.Show(line)
    End Sub
End Class