Hola
Prueba con lo siguiente:
Código:
Public Function Comprobar(ByVal num1 As Single) As Single
Dim x As Single
x = Round((num1 / 0.05), 2) - Int(Round(num1 / 0.05, 2))
Comprobar = x
End Function
Private Sub Command1_Click()
Dim num1 As Single
Dim resul As Single
num1 = Text1.Text
resul = Comprobar(num1)
While resul <> 0
num1 = num1 + 0.01
resul = Comprobar(num1)
Wend
Text2.Text = num1
End Sub
Con la función compruebo si el resto es cero, en tal caso, quiere decir que se ha encontrado el número múltiplo de 0.05, si no es cero, continuo sumando 0.01 al número, y así hasta encontrar el múltiplo (que será cuando la función devuelva 0).
Yo he creado un formulario con dos textbox, uno para introducir el dato (text1) y otro para mostrar el resultado (text2) y un botón para realizar el cálculo (Command1). Si te creas un formulario con esos controles y pegas el código puedes ver como funciona.
--Saludos--