Ошибка выполнения 6 Переполнение отображается после второй записи числа

Question

Я сталкиваюсь с этой ошибкой в ​​моей программе сканирования, где она сканирует серийный номер и проверяет 5 цифр из позиции 12 на наличие порядковых номеров.Однако, когда число в позиции 12 является 9, это показывает ошибку времени выполнения.Я не уверен, что является причиной этого.Я надеюсь, что кто-то может помочь.Спасибо.Ошибка происходит, когда я сканирую число, например Z121564182690072 C, он примет затем ввод, но когда я сканирую второй вход, Z121564182690073 C, он покажет ошибку.Я считаю, что проблема заключается в этом коде.

  Case -1 'Scanned UUT is 1 more than a number in the list
                    'if sample size is more than half of the lot size then skip checking
                    If (CLng(Me.lblRequiredQty.Caption) / CLng(Me.txtLotQty.Text)) < (2 / 3) Then

                        If CLng(Me.lblRequiredQty.Caption) > 10 Then

                            If i < Me.lstUnit.ListCount - 1 Then
                                If CLng(CLng(Mid(Me.lstUnit.List(i + 1), 12, 5)) - CLng(Mid(Me.lstUnit.List(i), 12, 5))) = 1 Then
                                    Me.lstUnit.Selected(i) = True
                                    A = MsgBox("This unit serial number is in sequence with " & _
                                        Me.lstUnit.List(i) & " and " & Me.lstUnit.List(i + 1) & "!", vbExclamation, "Error!!!")