Входной ящик кто-то нажал ОК без ввода чего-либо

Question

Я хочу заставить своих пользователей либо ввести значение, либо нажать отменить.

вот мой текущий код, но я не могу найти, как указать используемое нажатие OK без ввода чего-либо.

Благодаря

InputBox: 
On Error GoTo Cancel 
var_TauxUS = InputBox("Veuillez aller sur www.xe.com et entrer le taux d'echange US/CAN:" & vbCrLf & vbCrLf & "Exemple: 1,26 (avec une virgule)", "TAUX US") 'La variable reçoit la valeur entrée dans l'InputBox 


    If StrPtr(var_TauxUS) = 0 Then 
     GoTo InputBox 
    ElseIf var_TauxUS <= 1 Then 
     MsgBox "Vous devez entrer un chiffre plus grand que 1" 
     GoTo InputBox 
    ElseIf var_TauxUS >= 1.35 Then 
     MsgBox "Vous devez entrer un chiffre plus petit que 1.36" 
     GoTo InputBox 
    Else 
     var_TauxUS = var_TauxUS + vECHANGEDEVISE 'Calculer l'échange de la devise 
     var_US = True 
     MsgBox "Nous commenceons a updater les prix à un taux de " & var_TauxUS & " - Merci!" 
     GoTo Programme 
    End If 

Я пробовал:

IsEmpty(var_TauxUS) 

If var_TauxUS = "" then 

и это не работает

Answer 1

Ниже приведен пример, чтобы вы начали:

Sub test() 
    Do 
     var_TauxUS = InputBox("Enter here:") 

     If StrPtr(var_TauxUS) = 0 Then 
      Exit Sub 
     End If 
    Loop While var_TauxUS = vbNullString 
End Sub