Visual Basic - ayudarme en un formulario en visual basic 6.0

No sé cómo resolver la formula R = ((2 * g * m) / c) ^ 2 para que funcione en visual Basic 6.0 le intente l programa si funciona cuando lo corro pero no me da el resultado que ocupo el 2 al principio no me multiplica y no me divide solo quiero que me de esta resultado

R = 2 G M/c2


R = 2 (6,67 x 10-11) (6 x 10 24) / (3,0 x 108) 2



R = 8,0 x 1014 / 9.0 x 1016


R = 0,0089 m, o 8,9 milímetros.

También les voy a pasar el formulario de un botón y de textbox los primeros el tercer textbox es el que muestra el resultado la verdad no se si poner otro textbox solo quiero sacar el resultado de la operacion

Option Explicit
Dim G,M,c As Double

Private Sub Text1_Change()
M = Val(Text1.Text)
G = Val(Text1.Text)
End Sub

Private Sub Text2_Change()
c = Val(Text2.Text)
End Sub

Private Sub Command3_Click()
R = ((2*G*M)/c)^2
Label1.Caption = "R = ((2*G*M)/c)^2="
Text3.Text = Str(R)
End Sub

crea 4 textbox y un boton de comando:



g [text1 ] g, m y c los puse como labels 1,2,3 respectivamente (e cambias el caption)
m [text2] en estas es en donde vas a introducir los datos
c [text3]

Label4 [text4 box] en esta se mostrara el resultado

buton de comando aqui [ ]




EL CODIGO ( lo introduces en el boton de comando) COMMAND BUTTON


Dim G,M,R, c As Double


M = Val(Text1.Text)
G = Val(Text2.Text)
c = Val(Text3.Text)

R = ((2*G*M)/c) ^ 2
Label4.text = "R = ((2*G*M)/c)^2="
Text4.Text = Str(R)



Y si me funciono.