Visual Basic - Redondear un numero

Hola a todos, tengo el siguiente codigo en el evento lostfocus de un textbox:
Private Sub TxtImporte_LostFocus()
Dim Importe As Double
Dim Neto As Double
If CbTipo.ListIndex = 0 Then
Importe = 0
Neto = 0
Importe = (TxtImporte.Text * 0.5 / 100) * (21 / 100)
Neto = TxtImporte.Text - Importe
TxtNeto.Text = Format(Neto, "#####.00")
Exit Sub
Else
TxtNeto.Text = TxtImporte.Text
End If
End Sub

Supuestamente si ingreso un valor 10 en el txtimporte, el resultado que me tiene que devolver esa formula es de 9,9895..., y el txtneto me toma como valor 9,99, como puedo hacer o alguien conoce alguna forma de que me tome en vez de 9,99 que sea 9,98, alguien me puede decir como solucionar eso.

Gracias de antemano.

Mauro

el redondeo siempre es si es mas de cinco hacia arriba y si es menos hacia abajo, si lo que quieres es que siempre sea para abajo le pones menos una centesima al resultado con un IF

Usa la funcion round

Round(numero,0)

Eso es todo

Tampoco vale Round! El redondeo lo hace igual.

Hola!
No me parece la solución más ortodoxa ;) pero te puede servir.

Private Sub TxtImporte_LostFocus()
Dim Importe As Double
Dim Neto As Double
Dim Coma as byte 'Esto lo usás para ver si el número es decimal o entero.
If CbTipo.ListIndex = 0 Then
Importe = 0
Neto = 0
Importe = (TxtImporte.Text * 0.5 / 100) * (21 / 100)
Neto = TxtImporte.Text - Importe
'TxtNeto.Text = Format(Neto, "#####.00")
'En vez de la línea anterior ponés así:
Coma = InStr(1, Neto, ",")
If coma > 0 Then
Neto = Mid$(Neto, 1, coma + 2)
End If
TxtNeto.Text = Neto
Exit Sub
Else
TxtNeto.Text = TxtImporte.Text
End If
End Sub

Te repito: no es lo mejor pero es lo que se me ocurrió. Espero que te sirva.