用Open语句读到Text1中：

Dim txtFileName As String, St As string, Z As String

    txtFileName="D:\TxtFiles\001.txt" '这是举个例，要让变量txtFileName等于全路径文件名
    Open txtFileName For Input As #1
    Do Until EOF(1)
      Line Input #1, Z
      St = St & Z & vbCrLf
    Loop
    Close #1
    Text1.Text = St

用Save语句把Text1中的资料写到磁盘上：

Dim txtFileName As String, St As string

    txtFileName="D:\TxtFiles\001.txt"
    St = Text1.Text
    Open txtFileName For Output As #1
    Print #1, St
    Close #1