сообщение об ошибке

[Devil669]

Хотел сделать так, чтобы при нажатии на кнопку выполнялась функция.
Все нормально, но при нажатии на кнопку вылетает ошибка "Expected End Sub". Где ошибка?

 Private Sub CommandButton4_Click()
Function Stoim(Вес As Double, Дальность As Double, Стоимость1 As Double, Сезон As Double) As Integer
Stoim = (Вес / Стоимость1) * Дальность
If Сезон = 1 Then Stoim = (Вес / Стоимость1) * Дальность + (((Вес / Стоимость1) * Дальность) * 0.03)
If Сезон = 0 Then Stoim = (Вес / Стоимость1) * Дальность
End Function

[IgorGO]

не удивительно...
вместо End Function дайте екселю End Sub, которого он ожидает

[Devil669]

Я ему давал Он все-равно ругается.

[IgorGO]

извините

Private Sub CommandButton4_Click()
End Sub

Function Stoim(Вес As Double, Дальность As Double, Стоимость1 As Double, Сезон As Double) As Integer
Stoim = (Вес / Стоимость1) * Дальность
If Сезон = 1 Then Stoim = (Вес / Стоимость1) * Дальность + (((Вес / Стоимость1) * Дальность) * 0.03)
If Сезон = 0 Then Stoim = (Вес / Стоимость1) * Дальность
End Function

[Devil669]

Спасибо. Работает.