ランタイムエラー '6'オーバーフロー

Question

理由はわかりませんが、ポップアップで特定のID番号：3038776336を入力すると実行時エラーが発生します。変数を文字列からLongに変更しようとしましたが、うまくいきませんでした。ほかに何が足りないのですか？二重

として

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 

Answer 1

1. DIM ID

Answer 2

ランタイムエラー6がオーバーフローである "細胞（続き、10）CLNG（ID）を次にIF =" からCLNGを取り除きます。あなたの値はLongの最大値を超えています。あなたがしていることに基づいて、値をLongに変換する必要はありません。 Stringのままにしてください。

Dim ID As String 
ID = InputBox("ID #") 
... 
If StrComp(Cells(Cont, 10).Text,ID,vbTextCompare) = 0 Then 
...