Dim fname$, aa$
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 '窗体置屏幕中间
Command1.Caption = "打开"
Command2.Caption = "保存"
End Sub

Private Sub Command1_Click()
On Error GoTo errhandler
With CommonDialog1
.CancelError = True
.InitDir = App.Path '予设存档路径
.Filter = "文档文件(*.txt)|*.txt"
.ShowOpen '或commonDialog1.Action = 1 打开文件
End With
fname = CommonDialog1.FileName

'从上面打开的记事本文件读入资料加进Text1.text
Open fname For Input As #1
Text1.Text = ""
While Not EOF(1)
Line Input #1, aa
Text1.Text = Text1.Text & Trim(aa) & vbCrLf
Wend
Close #1
errhandler:
If Err = 32755 Then '选择了取消
Exit Sub
End If
End Sub