¿Quién puede ayudarme a escribir este código de fórmula de cálculo usando VB?

Subcomando privado1_Click()

Atenuar a, b, c como entero

Atenuar d como doble

a = Val(InputBox ("Ingrese el valor de a", "El valor de a:", "0"))

b = Val(InputBox("Ingrese el valor de b", "El valor de b :", " 0"))

c = Val(InputBox("Ingrese el valor de c", "El valor de c:", "0"))

Si b = 0 y c <> 0 Entonces

MsgBox "El divisor b no puede ser 0", 0 + 512 + 0, "Mensaje de error"

b = Val(InputBox( "Por favor ingrese el valor de b", "El valor de b:", "0"))

ElseIf c = 0 And b <> 0 Then

MsgBox "El divisor b no puede ser 0", 0 + 512 + 0, "Mensaje de error"

c = Val(InputBox("Ingrese el valor de c", "El valor de c:", "0") )

De lo contrario, si c = 0 y b = 0, entonces

MsgBox "Divisor b, c no puede ser 0", 0 + 512 + 0, "Mensaje de error"

b = Val(InputBox("Ingrese b El valor de ", "El valor de b:", "0"))

c = Val(InputBox("Ingrese el valor de c ", "El valor de c:", "0"))

Fin si

d = a * b / (c * b)

Texto1 .Texto = d

End Sub