исправьте ошибки

[Devil669]

Друзья, помогите. Процедура должна считать по формуле и выводить ответ в Label. Где ошибка?

Private Sub CommandButton1_Click()
 Dim Weight As Double
 Dim Cost As Double
 Dim Distance As Double
 Dim Season As Double
Dim Stoim As Double
Weight As TextBox1
Distance As TextBox2
Cost As TextBox3
Season As TextBox4
Stoim As CommandButton1
 Label5.Caption as DoubleToStr(Stoim)
Stoim = (Weight / Cost) * Distance
If Season = 1 Then Stoim = (Weight / Cost) * Distance + (((Weight / Cost) * Distance) * 0.03)
If Season = 0 Then Stoim = (Weight / Cost) * Distance
End Sub

[VictorM]

Weight As TextBox1
Distance As TextBox2
Cost As TextBox3
Season As TextBox4
Stoim As CommandButton1
Label5.Caption as DoubleToStr(Stoim)

Что Вы всем этим хотите сказать?
У Вас редактор на все это дело не ругается?

[Devil669]

Я просто, на Делфи программировал. Теперь привычка

[VictorM]

Я просто, на Делфи программировал. Теперь привычка

Тогда может так нужно?

Private Sub CommandButton1_Click()
    Dim Weight As Double
    Dim Cost As Double
    Dim Distance As Double
    Dim Season As Double
    Dim Stoim As Double
    Weight = TextBox1
    Distance = TextBox2
    Cost = TextBox3
    Season = TextBox4
    Stoim = CommandButton1
    Label5.Caption = Stoim
    Stoim = (Weight / Cost) * Distance
    If Season = 1 Then Stoim = (Weight / Cost) * Distance + (((Weight / Cost) * Distance) * 0.03)
    If Season = 0 Then Stoim = (Weight / Cost) * Distance
End Sub

[Devil669]

Благодарю. Все работает.