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

    Dim s As String
    Dim Cancel As Boolean
    s = InputBox("")
    Cancel = Not CBool(StrPtr(s))
    MsgBox Cancel