Redondear un numero en Visual Basic

Utilice la siguiente rutina para redondear un número. Le devolverá el número redondeado en formato
Double con tantos decimales como indique en el parámetro 'intCntDec'.

Public Function Redondear(dblnToR As Double, Optional intCntDec As Integer) As Double
Dim dblPot As Double
Dim dblF As Double
If dblnToR < 0 Then dblF = -0.5 Else: dblF = 0.5
dblPot = 10 ^ intCntDec
Redondear = Fix(dblnToR * dblPot * (1 + 1E-16) + dblF) / dblPot
End Function

y en el codigo del boton escriben esto:

Private Sub Command1_Click()
Text2.Text = Redondear(CDbl(Text1.Text))
End Sub

Como ven el parametro intCntDec es opcional asi que si no lo colocamos simplemente calcula el numero decimal al entero proximo como la figura de abajo:

pero si desearan redondear a una cierta cantidad de decimales tendrian que colocar otro textbox y cambiar el codigo en el procedimiento click del boton para que luzca asi:

y en el codigo del boton tendrian que hacer esto:

Private Sub Command1_Click()
Text3.Text = Redondear(CDbl(Text1.Text), CInt(Text2.Text))
End Sub

espero les sirva el codigo :)