VB6中判断用户是否按下了InputBox的取消按钮

Dim s As String

Dim Cancel As Boolean

s = InputBox("")

Cancel = Not CBool(StrPtr(s))

MsgBox Cancel