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