请各位帮忙改一下错！

我在读取文本时出现错误，请各位老师帮忙改一下错，谢谢！
Private Sub Command1_Click()
CommonDialog1.DialogTitle = "选择路径"
CommonDialog1.ShowOpen
Label1.Caption = CommonDialog1.FileName
End Sub

Private Sub Command2_Click()
Open "c:\a.txt" For Output As #1
Print #1, Label1.Caption

Close #1

End Sub

Private Sub Command3_Click()
Open "c:\a.txt" For Input As #1
Line Input #1, Label1.Caption
Close #1
End Sub