Simple Math Equation wont work!

[sciguyryan]

Nope that didnt work

Option Explicit
 
Dim num1 As Double
Dim num2 As Double
Dim answer1 As Double
 
' This calculates the tax credit on parts
Private Sub Command1_Click()
Text3.Text = (Val(Text1.Text) / Val(Text2.Text)) * 100
End Sub

Can you b a bit more specific. Did you get an error or can you describe exactly what it is (Or is not) doing that it should be?

Cheers,

RyanJ