VB中如何在inputbox弹出的窗口中，单击确定时启用msgbox函数呢？谢谢

Private Sub Command1_Click()
MsgBox InputBox("输入字符", "暗暗", "aaa"), vbOKCancel + 48, "提示"
End Sub

单击取消也会弹出msgbox

只单击确定时显示msgbox:
a=Inputbox(...)
If a=vbYes Then Msgbox(...)
...

a=input("Please input a number:")
msgbox a

Private Sub Command1_Click()
MsgBox InputBox("")

End Sub