InputBox выдает ошибку! Как ее исправить?

[Gyfmod]

Когда я нажимаю в выведенном InputBox "Ок" или "Отмена" и при этом не ввел никакое значение, то выдает такую ошибку:



вот код:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If d = 0 Then
MsgBox("Вы не выбрали краску!")
Else
Dim number As Integer
number = InputBox("Количество красок:")

Button2.Text = number

FileOpen(1, "D:\zvezda-b.txt", OpenMode.Random)
FilePut(1, number, d)
FileClose(1)
End If
End Sub

Спасибо.

[Казанский]

Например так

Dim number As Integer, s As String
s = Inputbox(...)
if s<>"" then number=s

[IgorGO]

или так

number = Val(Inputbox(...))

[Gyfmod]

Сообщение от Казанский

Например так

Dim number As Integer, s As String
s = Inputbox(...)
if s<>"" then number=s

Сообщение от IgorGO

или так

number = Val(Inputbox(...))

Спасибо оба способа помогли... все работает)

Но у меня возникает еще один вопрос. Допустим Button2.Text имеет значение 4, после того как я в Inputbox нажал "Ок" или "Отмена" Button2.Text обнуляется.
Можно ли это исправить, чтоб 4 осталась?

[Казанский]

If number > 0 then Button2.Text = number

Следующий вопрос будет про открытие файла, если number = 0?

[EducatedFool]

Вопрос не имеет отношения ни к Excel, ни к языку VBA.
Зачем постить темы в первом попавшемся разделе?
При программировании в VB и в Excel (на VBA) таких проблем и сообщений нет.

Закрыто.