Visual Basic - llamar function dentro de un private sub

Buenos dias, como podria llamar un function desde dentro de un private sub? la function seria:

Function recortar(lotenew As String) As String

Dim posi As Double

posi = 0

posi = InStr(1, lotenew, "@00")

If posi > 0 Then lotenew = Mid(lotenew, 1, posi - 1)

End Function

gracias

Le tienes que asignar el valor resultante de la funcion al nombre de la función

Function recortar(lotenew As String) As String
Dim posi As Double

posi = 0
posi = InStr(1, lotenew, "@00")
If posi > 0 Then recortar = Mid(lotenew, 1, posi - 1)
End Function

Private Sub Command1_Click()
Label1.Caption = recortar(Text1.Text)
End Sub