Использование InputBox. Почему вставляет данные при нажатии на отмену - VBA

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

Доброго времени суток! В очередной раз обращаюсь за помощью. Вставляю данные в форму через InputBox, и не знаю куда воткнуть условие(если оно нужно, может есть др.варианты). Сейчас при нажатии кнопки отмена, всё-равно вводит их.

                    Листинг программы
                
 
                            
                        
If Not (Me.DateZZPozFakt = False) Then
MsgBox "Позиция уже закрыта!", vbInformation, "План Производства"
Else
 
Message = InputBox("Количество полученного", "Правка комментария", Me.KolZZOMTSPoz - Me.KolZZPozFakt)
 
    s_SearchString = Trim$(Me.MemoZZOMTSPoz & "") 'строка, в которой будем искать
    s_SearchChar = "Получено " & Format(Date, "dd.mm.yyyy") & "г. - " & Me.KolZZOMTSPoz - Me.KolZZPozFakt & Me.NaimKEdIzm  'будем искать слово
    'сравнение строк как текст начиная с позиции
            If InStr(1, s_SearchString, s_SearchChar, 1) = 0 Then
                l_MyKommentSklad = InStr(1, s_SearchString, "Получено", 1)
                    If l_MyKommentSklad = 0 Then
                        Me.MemoZZOMTSPoz = Trim$(s_SearchChar & ". " & s_SearchString)
                    Else
                      Me.MemoZZOMTSPoz = Trim$(Left$(s_SearchString, l_MyKommentSklad - 1) & s_SearchChar & "; " & Trim$(Mid$(s_SearchString, l_MyKommentSklad + Len("Получено"))))
                    End If
            
            End If
End If
End Sub

Решение задачи: «Использование InputBox. Почему вставляет данные при нажатии на отмену»

textual
                            Листинг программы 
                        
MESSAGE = InputBox("Количество полученного", "Правка комментария", Me.KolZZOMTSPoz - Me.KolZZPozFakt)
 
If Len("" & MESSAGE) = 0 Then
MsgBox "ОТКАЗ"
Exit Sub
End If