Option Explicit

'InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
Public Function InputBoxQ(ByVal prompt As String, Optional ByVal title As String, Optional ByVal default As String, Optional cancel As Long, Optional ByVal xpos As Long, Optional ByVal ypos As Long, Optional ByVal helpfile As String, Optional ByVal context As Long) As String
    
    '/cancel 参数就是代表返回值,返回为0表示选择了取消
    '/其它参数和原来InputBox一样
    
    InputBoxQ = InputBox(prompt, title, default, xpos, ypos, helpfile, context)
    cancel = StrPtr(InputBoxQ)
End Function
Private Sub Command1_Click()
    Dim lngQ As Long, strS As String
    strS = InputBoxQ("asdfa", "sdfasf", , lngQ)
    If lngQ = 0 Then
        MsgBox "inputbox choosed cancel"
    Else
        MsgBox strS
    End If
End Sub