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