Please let me know what I am doing wrong in this code. I am getting overflow error. Thank you for your help.
Dim myPrecentge As Long
Dim Total As Double
Dim Used As Double
txtTotal = Total
txtUsed = Used
myPrecentge = Round((Used / Total) * 100,0)
If myPrecentge >= 15 Then
MsgBox Some Message
Else
MsgBox Some Message
End If
End Sub
Dim myPrecentge As Long
Dim Total As Double
Dim Used As Double
txtTotal = Total
txtUsed = Used
myPrecentge = Round((Used / Total) * 100,0)
If myPrecentge >= 15 Then
MsgBox Some Message
Else
MsgBox Some Message
End If
End Sub