Hola,
Prueba así (en rojo la modificación):
Cita: Function MiRedondeo(numero As Double) As Double
Dim entero As Long
Dim decima As Double
entero = Int(numero) 'Obtenemos el entero
decima = numero - entero 'Obtenemos la parte decimal
'Hacemos un condicional
If Round(decima,1) = 0.3 Then
MiRedondeo = 1
Else
MiRedondeo = 0
End If
End Function
Saludos!
Pd: Para JoaoM, No creo que estés muy autorizado para expresarte de ese modo. Si puedes aportar algo, apórtalo, pero participar para regañar a la gente por nada.....