FAQ

Utiliser la fonction StrPtr() qui renvoie l'adresse de la variable

Dim sInput As String
sInput = InputBox("Allons y ... testez-moi", "Demo InputBox")

If StrPtr(sInput) = 0 Then
    MsgBox "Vous avez annulé..."
Else
    If Len(sInput) = 0 Then
        MsgBox "Vous avez appuyé sur OK, mais sans saisie."
    Else
        MsgBox "Vous avez appuyé sur OK, la valeur est : " & sInput
    End If
End If