
dim ans As Variant
ans = MsgBox(输入你要显示的内容, vbOKCancel + vbDefaultButton2)
If ans = vbOK Then
....... 点确认执行的代码
Else
....... 点取消执行的代码
End If
如果是inputbox的话本身就自带确定和取消的,例如:
dim aaa as string
aaa=inputbox(输入你要显示的语句)
这样就可以了

dim ans As Variant
ans = MsgBox(输入你要显示的内容, vbOKCancel + vbDefaultButton2)
If ans = vbOK Then
....... 点确认执行的代码
Else
....... 点取消执行的代码
End If
如果是inputbox的话本身就自带确定和取消的,例如:
dim aaa as string
aaa=inputbox(输入你要显示的语句)
这样就可以了