[vb6]funcion che non funziona

[ciro78]

salve

Public Sub costo(peso)
If Int(peso) = peso Then costo = 0.32 + (0.23 * (peso - 1))
If Int(peso) <> peso Then costo = 0.32 + (0.23 * peso)
End Sub

Private Sub Command1_Click()
Dim somma As Single
a = CSng(Text1.Text)

Text2.Text = costo(a)
End Sub

mi dice prevista funcion o variabile...capisco che vuol dire ma non so ke fare!

[ciro78]

scusate ma il problema è ke avevo definito una sub nno una function
meglio staccare

[deedlyt]

hai ragione ...

[ciro78]

lo so ma sai a volte dopo ore non si notano le banalità....
il fatto che ceco di studiare tanto perchè sembra sempre che io non sappia niente