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

[lngjw]

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

[MoQi_123]

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

[griefforyou]

Private Sub test(str)
MsgBox str
End Sub

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