продолжайте цикл при нажатии кнопки отмены и выхода

Question

Я пытаюсь сделать цикл ввода, если он пуст, но он столкнется с проблемой, такой как нажатие кнопки отмены, и кнопка выхода также покажет тот же результат и продолжит цикл.

Dim x As Variant



 Do
      x = InputBox("Please Input Yor  ID!")

       If x <> "" Then Exit Do
       MsgBox "ID cannot be Empty!"

Loop
     MsgBox ("id : " & x)

Answer 1

Что-то вроде:

Option Explicit

Public Sub LoopInputBox()
    Dim x As Variant
    Do
        DoEvents
        x = Application.InputBox("Please Input Yor  ID!")

        If TypeName(x) = "Boolean" Then Exit Sub

    Loop While x = vbNullString

    MsgBox ("id : " & x)
End Sub

Эта идея взята из здесь .