Private Sub Command1_Click()
On Error GoTo error1
CommonDialog1.Filter = "文本文件(txt格式)|*.txt|"
CommonDialog1.ShowOpen
Text1.Text = Loadtext(CommonDialog1.FileName)
Label1.Caption = CommonDialog1.FileName
Exit Sub
error1:
Exit Sub
End Sub

Private Sub Command2_Click()
Text1.Text = Loadtext()
Label1.Caption = ""
End Sub

Private Sub Command3_Click()
End
End Sub
（打开文本文件，清除文本框内容，但运行时说编译错误，子程序或函数未定义。 请大虾指导）

On Error GoTo error1
error1:

Text1.Text = Loadtext(CommonDialog1.FileName)

Text1.Text = Loadtext()

这个 loadtext 函数你定义了吗？

如果定义了，还报这个错，上传工程。

老大，你LOADTEXT函数在哪？抄程序抄完整行不！
把这段粘后面试试！
private function loadtext(flName as string)as string
    loadtext=flName
end function