Private Sub save_Click()
Dim i As Integer, inputdata As String
CommonDialog1.Filter = "文本文件（*.txt）|*.txt"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.text
Close #1
End Sub

Private Sub open_Click()
Dim inputdata As String
Text1.text = ""
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
Text1.text = Text1.text & inputdata & vbCrLf
Loop
Close #1
End Sub
在你程序加红色那句就行叻