Runtime error "6" Overflow

[crimzon]

Hi guys
i am new to the VB and i need your help to sort out the below problem

Im using below simple code by passing these values 898098878(param1) 7768978989(param2) and unfortunately getting the this error RUNTIME ERROR "6" Overflow.


Private Sub CommandButton5_Click()
Dim param1 As Long
Dim param2 As Long

param1 = gross.Text
param2 = eprem.Text

TextBox2 = Format((param1& / param2&), "0.00%")
TextBox1 = param1& + param2&

End Sub

 

[shg]

A Long is a 32-bit integer. Those values are too large in a Long. You could declare the variables as Double if you need to use a numeric variable, or as String if they can be text.

 

[crimzon]

A Long is a 32-bit integer. Those values are too large in a Long. You could declare the variables as Double if you need to use a numeric variable, or as String if they can be text.

Thank you very much for your kind reply.
it works fine.

 

[shg]

You're welcome.