弹出框求助，在线等待。。。

Question

用一个command button，点击后弹出输入框，取回输入值，如何写代码啊
sMSG为输入值，test为取回后调用，中间代码如何插。
Private Sub Command_Click()
    Dim sMSG As String
    Call test(sMSG)
End Sub

Answer 1

sMsg=inputbox("请输入数据","输入")        ''弹出输入对话框并取得返回值
if sMsg="" then exit sub                  ''如果sMsg=""说明用户取消或没有输入数据

Answer 2

Private Sub test(str)
    MsgBox str
End SubPrivate Sub Command1_Click()
    Dim sMSG As String
    sMSG = InputBox("test", "xxx", "xxx")
    Call test(sMSG)
End Sub