Visual Basic - Como Degar un Resultado con Dos Desimales

hola necesito dejar un resultado con dos decimales porque no me resulta como se hace dentro de una función que al final detallo
me queda con 16 decimales y no es lo que busco
Function Division2()
Dim Res1 As Currency
Dim Res2 As Currency
Res1 = (Text4.text)
Res2 = (Text15.text)
totalgeneral = (Res2 / Res1) * 100
totalgeneral = totalgeneral
Text18.text = totalgeneral
End Function

Lo que tienes que modificar es solo la última línea:

Function Division2()
Dim Res1 As Currency
Dim Res2 As Currency
Res1 = (Text4.Text)
Res2 = (Text15.Text)
totalgeneral = (Res2 / Res1) * 100
totalgeneral = totalgeneral
Text18.Text = Format(totalgeneral, "###.##") 'Linea modificada
End Function

Suerte!!!