Visual Basic. Помогите

Question

Подчеркивает желтым первую строчку. Ругается. 
 
Private Sub Command1_Click() 
S = InputBox("Введите сумму денег") 
V = InputBox("Введите стоимость одной тетради") 
If InputBox(" '' ") Then 
MsgBox ("Введите данные для решения задачи) 
If V = InputBox("0") Then 
MsgBox ("Посчитать невозможно, поскольку на ноль делит нельзя") 
Else 
k = Int(S / V) 
End If 
rez = MsgBox("Ê³ëüê³ñòü çîøèò³â = " + Str(k)) 
End Sub 
 
Что не так?

Илья Копылов · Accepted Answer

1. Нет объявлений переменных. 
Например, 
 Dim A As Integer 
 Dim B As String 
 
2. Окно ввода данных InputBox возращает строку, а не число. Следовательно, 
для дальнейших математических операций с числом требуется преобразование 
Например, 
 Dim B As String 
 Dim C As Short 
 B = InputBox("Введите сумму денег") 
 C = Val ( B ) 
 
Или так: 
 Dim C As Short 
 С = Val ( InputBox ( "Введите сумму денег" ) ) 
 
3. If InputBox(" '' ") Then 
Этот If не имеет окончания End If 
 
4. If V = InputBox("0") Then 
Не правильная реализация 
 
If V=0 Then 
 
или если сравнивается строка, то 
If V="0" Then