...
Pos paso un dia y al no haber respuestas te dejo esto:
Private Function redondea(ByVal strValor As String) As String
Dim intIndex As Integer = strValor.IndexOf(".", 0) + 3
Return strValor.Substring(0, intIndex)
End Function
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
MsgBox(redondea(Me.TextBox1.Text))
End If
End Sub
Con eso hara lo que pides, el keypress es solo para el ejemplo, ya tu ve como lo usas.
Estuve intentando con la funcion FORMAT pero no sali por eso te dejo esa funcion.
Salu2 y Suerte!