no se en que falla

[pkj]

Creo que esto es lo que intentas hacer:

Código vb:

Function Precio_churros(churros As Integer) As Double
  churros = churros- Int(churros / 12)
  Precio_churros = churros * 0.2
End Function
 

Saludos

PD:
Pero de ese modo la variable churros se modifica y despues de ejecutar la función pierde su verdadero valor.
Lo mejor es usar byVal en la declaración de la función o cambiarla por:

Código vb:

Function Precio_churros(churros As Integer) As Double
  Precio_churros = churros - Int(churros / 12)
  Precio_churros = Precio_churros * 0.2
End Function