What am I doing wrong. The user enters populations and clicks calculate. Well, this works for small numbers, but not large numbers; whY?
Private Sub Command1_Click()
If Val(Text4.Text) < Val(Text6.Text) Then
Text5.Text = Format$((Val(Text4.Text) - Val(Text6.Text)) * 0.01, "percent")
MsgBox ("Increase in Population")
Else
Text7.Text = Format$((Val(Text6.Text) - Val(Text4.Text)) * 0.01, "percent")
MsgBox ("Decrease in Population")
End If