Visual Basic - Coma aplicar Funcion Redondear

Hola. Saludos a todos.
Me tengo un pequeño problema con un textbox ya que en el pone el resultado del calculo del precio unitario de un articulo.El problema es que deseo redondear esa cantidad hacia arriba que sean . "50" y a ".00". Por ejemplo: si la cantidad es 1.01 a 1.50 lo deje en 1.50 y si la cantida es 1.51 a 1.99 lo deje en 2.00 a su proximo entero inmediato.
He copiado algunas funciones de redondeo en esta página pero no se las he podido aplicar al textbox de la manera como lo deseo .
Espero me puedan ayudar .Gracias y Saludos.

ok, voy a tratar de contestar..

tendrias que hacer tu propia funcion de redondeo, mas o menos asi:

...
Dim tmp() as string
Dim valor as string

valor = tu textbox.text

tmp = split(valor, ".")

' validas
if CInt(tmp(1)) > 1 and CInt(tmp(1)) < 51 then
tmp(1) = "50"
elseif CInt(tmp(1)) > 50 and CInt(tmp(1)) <= 99 then
tmp(0) = Cstr(Cint(tmp(0)) + 1)
tmp(1) = "00"
end if

' y lo vuelves a unir

valor = tmp(0) & "." & tmp(1)


Mas o menos asi seria, segun lo que te he podido entender.

Espero te sirva.. bye

Maree.... Muchas gracias por la ayuda.
Aqui le dejo como quedo la Rutina por si les sirve a alguien.

Sub Redondea()

Dim TempPrecio As Variant
Dim TempValor As Variant

TempValor = FrmAltaArticulo.TxtPrecio.Text

TempPrecio = Split(TempValor, ".")

' validas
If CInt(TempPrecio(1)) >= 1 And CInt(TempPrecio(1)) < 51 Then
TempPrecio(1) = "50"
ElseIf CInt(TempPrecio(1)) > 50 And CInt(TempPrecio(1)) <= 99 Then
TempPrecio(0) = CStr(CInt(TempPrecio(0)) + 1)
TempPrecio(1) = "00"
End If

'y lo vuelves a unir
TempValor = TempPrecio(0) & "." & TempPrecio(1)
FrmAltaArticulo.TxtPrecio.Text = TempValor

End Sub

'Saludos