Помогите пожалуйста вот с этой частью
StrText = InputBox("Введите количество " & _
Format(IntI, "# ##0") & "-го товара", "ГиперМаркет Таргет")
If StrText = "" Then
MsgBox "Это неверно.Повторите пожалуйста попытку!!!"
GoTo 1
Else:
IntKolichestvo = CInt(StrText)
End If
Там где InputBox с введите кол-во получился,не могу понять как потом сделать так,что после введения первого кол-ва отображалась функция Если