Run-Time error '6' Overflow
<p>I'm not sure why, but I am receiving a run time error when entering a certain ID number: 3038776336 on the popup. I have tried changing the variable from a string to Long but that did not work. What else am I missing?</p>

<pre><code>Range("BM1").Select
ActiveCell.FormulaR1C1 = "I/O"
lngLastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
Dim Account As String
ID = InputBox("ID #")

Dim Cont
For Cont = 2 To lngLastRow
    If Cells(Cont, 10) = CLng(ID) Then
       Cells(Cont, 65).FormulaR1C1 = "Outbound"
    Else
       Cells(Cont, 65).FormulaR1C1 = "Inbound"
    End If
Next Cont
</code></pre>