прога по расчету стоимости

[Devil669]

Друзья, помогите составить простенькую прогу. Задача такая: есть вес груза,есть дистанция и есть стоимость перевозки 1 кг. на 1 км. нужно высчитать стоимость перевозки груза. Вот мой вариант, но он не работает.

Private Sub CommandButton1_Click()
 Dim Weight As Integer\\вес груза
 Dim Cost As Integer\\стоимость перевозки 1 кг. на 1 км.
 Dim Distance As Integer\\дистанция
 
Dim Stoim As Integer
Weight = TextBox1
Distance = TextBox2
Cost = TextBox3

Stoim = Label5.Caption

Stoim = ((Weight / Cost) * Distance)

End Sub

[Watcher_1]

Наверное нужно сделать так

Weight = val(TextBox1)
Distance = val(TextBox2)
Cost = val(TextBox3)

[IgorGO]

Weight = val(TextBox1)
Distance = val(TextBox2)
Cost = val(TextBox3)

[Devil669]

Почему-то выдает "Sub or Function not defined"
и выделяет

Private Sub CommandButton1_Click()

[Watcher_1]

Мож файл приложите? А то можно перебирать оч долго варианты, почему код не работает...

[kalbasiatka]

С такими штуками " \\" ошибку выдаёт )
Сначала сделать вычисления, а потом в лабел

Stoim = ((Weight / Cost) * Distance)
Label5.Caption = Stoim