在VS2013中，如何用VB创建txt文件

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Not IO.File.Exists("c:\123.txt") Then

            IO.File.CreateText("c:\123.txt")

        Else

            IO.File.WriteAllText("c:\123.txt", TextBox1.Text)

        End If

    End Sub

StreamReader sr = new StreamReader(txtPath.Text, Encoding.GetEncoding("GB2312"))

string line

string strShow = ""

while ((line = sr.ReadLine()) != null)

{

strShow = strShow + line + "\n"

}

rtxtRead.Text = strShow

sr.Close()

---