'''''已经通过测试的代码,分享给你
InputMessage=InputBox("Please Input", "Input", "")
If InputMessage=vbEmpty Then
Buffer=MsgBox("Cancel!", VbOKOnly)
Else
If InputMessage="" Then
Buffer=MsgBox("OK, But Empty", VbOKOnly)
Else
Buffer=MsgBox(InputMessage, VbOKOnly)
End If
End If