新手请教，运行会出现变量未定义，请教高人

Question

Private Sub Form_Click()
c1$ = Chr$(13) + Chr$(10)
msg1$ = "输入顾客名字:"
msg2$ = "输入后按回车键"
msg3$ = "或单击“确定”按钮"
msg$ = msg1$ + c1$ + msg2$ + c1$ + msg3$
custname$ = InputBox(msg$, "InputBox Function demo", "王大力")
Print custname$
End Sub
变量未定义C函数

Answer 1

Private Sub Form_Click()
    Dim c1$, msg1$, msg2$, msg3$, msg$, custname$
    c1$ = Chr$(13) + Chr$(10)
    msg1$ = "输入顾客名字:"
    msg2$ = "输入后按回车键"
    msg3$ = "或单击“确定”按钮"
    msg$ = msg1$ + c1$ + msg2$ + c1$ + msg3$
    custname$ = InputBox(msg$, "InputBox Function demo", "王大力")
    Print custname$
End Sub