参考答案

Private Sub Command1_Click()
    Dim n As Long
    CD1.FileName = ""
    CD1.Filter = "所有文件|*.*|文本文件|*.txt|Word文档|*.doc"
    CD1.FilterIndex = 2
'    CD1.ShowOpen
    CD1.Action = 1
    If CD1.FileName <> "" Then
        Open CD1.FileName For Input As #1
        n = LOF(1)
        Text1 = Input$(n, #1)
'      Close #1
      Close 1
    End If
End Sub