Visual Basic - ayuda con un varible

bueno lo que pasa es que cuando tengo una varible de tipo Dim por As Double

Function calculo()
On Error Resume Next
Dim can As Long

If Combo6.Text = "RENDICION DE FONDOS FIJOS" Then
can = txt_mon.Text / 2
If can < txt_total.Text Then
Dim por As Double
If can1 < 1 Then
por = ((txt_total * 100) / txt_mon)
MsgBox "La rendicion realizada a sobrepasado el 50%" & " Es de un :" & (por) & "%", vbCritical
can1 = can1 + 1
End If
End If
End If

End Function

lo que pasa que el mensaje me muestra una cantidad de mas de 9 decimales a partir de la coma como podria realizar que solo mostrara 2 para en mensaje ayuda gracias

Prueba usando

por = format(((txt_total * 100) / txt_mon) ,"###,###,###.00")