我上次做的打字小软件里，那里面有三个BOX以打开文件的控件组，我觉得太多了，占地方，改为一个浏览控件Command6和一个CommanDialog1，照样本设置Dialog1其属性：再贴到TEXT1里面去：

Private Sub Command6_Click()
Dim st As String
Dim al As Integer
Dim re As String

Open Dialog1.FileName For Input As #1
st = ""
al = 0
While Not EOF(1)
re = Input(1, #1)
al = al + 1
st = st + re
Wend
Close #1
Text1.Text = st
End Sub

执行之，出现：

错误53，文件找不到

？？？？

Dialog1.FileName 返回了甚麽啊, 在此之前有無呼叫了 Dialog1.ShowOpen 或 ShowSave 方法啊.