[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!