Overflow error ... Resolved

[GARY MICHAEL]

Hello,
Can somebody tell me why I get a Run-time Overflow error on this code?


Option Explicit
Option Compare Text

Dim Units As String
Dim UnitNum As Integer 'How many units to convert from text1
Dim EqualsNum As Integer 'Equals Box

Dim AcreFeetFactor As Double 'Error occurs when this one is used.
Dim AcreYardFactor As Double
Dim AcreMeterFactor As Double
________________________________________________


Private Sub ConvertButton_Click()
If Units = "Acre" Then
UnitNum = Text1
AcreMeterFactor = 4.047
AcreFeetFactor = 43560 'The error occurs when this one is used.
AcreYardFactor = 4840

If ComboToUS.Text = "square feet" Then
EqualsNum = AcreFeetFactor * UnitNum
End If
If ComboToUS.Text = "square yards" Then
EqualsNum = AcreYardFactor * UnitNum
End If
If ComboToMetric.Text = "square meters" Then
EqualsNum = AcreMeterFactor * UnitNum
End If
End If
EqualsBox = EqualsNum
End Sub


Run-time error 6:

Overflow

[chemicalNova]

A few things:

a) This is a Visual Basic question in an Assembly forum. To get your Visual Basic questions answered, try going here:

http://www.vbforums.com/forumdisplay.php?s=&forumid=1

b) Secondly, you should probably try this:

If Units = "Acre" Then
[b]UnitNum = CDbl(Text1.Text)[/b]
AcreMeterFactor = 4.047

Phreak

[GARY MICHAEL]

Thanks phReAk,

for directing me to the right forum. I did resubmit on the VB forum.

I made the change in code, but I still get that error.