dichiari una variabile che deve contenere la risposta, se premi ok alla variabile viene assegnato un valore, altrimenti non succede nulla, devi quindi controllare il puntatore alla variabile con StrPtr e in base al valore che ti ritorna riesci a capire se è stato premuto annulla oppure no.

codice:
    Dim strTemp As String
    
    strTemp = InputBox("inserire un valore")
    If StrPtr(strTemp) = 0 Then
        'premuto annulla
    ElseIf Len(strTemp) = 0 Then
        'non ha inserito nulla e premuto ok
    Else
        'tutto ok
    End If