Запрограммировать кнопку "Отмена" в InputBox - VB

Формулировка задачи:

Я конечно же чайник, поэтому требуется ваша помощь, дорогие, вот код(извините если коряво):

                    Листинг программы
                
 
                        
                          
                    
Private Sub Form_Load()
Dim d, g As Integer
start: d = InputBox("Cкільки членів підтримує рішення?")
If d < 10 Then
k = MsgBox("Рішення не прийнято!")
Else
If d > 15 Then
p = MsgBox("В раді 15 країн!")
GoTo start
Else
g = InputBox("Скільки постійних членів проти?")
If g >= 1 Then
z = MsgBox("Рішення не прийнято!")
Else
s = MsgBox("Рішення прийнято!")
End If
End If
End If
Unload Me
End Sub

Как запрограммировать кнопку "Отмена" в InputBox

Решение задачи: «Запрограммировать кнопку "Отмена" в InputBox»

textual
                            Листинг программы 
                        
 
                        
                          
                    
dim d as string
  d = InputBox("Cкільки членів підтримує рішення?")
  If d = "" Then
    If StrPtr(d) Then
      MsgBox "Вы ввели пустую строку"
    Else
      MsgBox "Вы нажали отмену или Esc"
    End If
  Else
    MsgBox "Вы что-то ввели"
  End If