Visual Basic - Problema con redondeo

Hola!

Tengo una función de redondeo para reemplazar el round, el problema es que funciona bien desde el entorno de programación, pero al compilarla redondea mal.

Me explico, tengo el valor 39.395, que redondeado a 2 decimales debe ser 39.4. El Round del VB no me sirve y encontré otra función. Si la ejecuto desde el proyecto sin compilar, redondea bien, y si la ejecuto compilada, me da 39.95.

Alguien me puede ayudar?

Gracias

Si ejecutas Round(39.395,2) te devuelve 39.4 y si no dices que función estás usando es imposible adivinar.

Function Round(nValor As Variant, Optional nDecim As Integer) As Double
Dim cMascara As String

cMascara = Replicate("#", nDecim - 1)
If nDecim > 0 Then
cMascara = cMascara + "0"
End If

If cMascara <> "" Then
cMascara = "." + cMascara
End If

cMascara = "#0" + cMascara

Round = Format(nValor, cMascara)

End Function

Si no tienes la función replicate:
Function Replicate(cChar As String, nCant As Integer) As String
Dim i As Integer
Dim cMono As String

cMono = ""
For i = 1 To nCant
cMono = cMono + cChar
Next i

Replicate = cMono

End Function