PROBLEMA AO GERAR LINHA DIGITAVEL COM COD. BARRAS

Function Calculo_DV11(strNumero As String) As String
'declara as variáveis
Dim intContador As Integer
Dim intNumero As Integer

Dim intTotalNumero As Integer

Dim intMultiplicador As Integer

Dim intResto As Integer

' se nao for um valor numerico sai da função
If Not IsNumeric(strNumero) Then
  Calculo_DV11 = ""
  Exit Function
End If

'inicia o multiplicador
intMultiplicador = 9

'pega cada caracter do numero a partir da direita
For intContador = Len(strNumero) To 1 Step -1

'extrai o caracter e multiplica prlo multiplicador
intNumero = Val(Mid(strNumero, intContador, 1)) * intMultiplicador

'soma o resultado para totalização
intTotalNumero = intTotalNumero + intNumero

'se o multiplicador for maior que 2 decrementa-o caso contrario atribuir valor padrao original
intMultiplicador = IIf(intMultiplicador > 2, intMultiplicador - 1, 9)

Next

'calcula o resto da divisao do total por 11
intResto = intTotalNumero Mod 11

'verifica as exceções ( 0 -> DV=0    10 -> DV=X (para o BB) e retorna o DV
Select Case intResto
  Case 0
    Calculo_DV11 = "0"
  Case 10
    Calculo_DV11 = "X"
  Case Else
    Calculo_DV11 = Str(intResto)
End Select
End Function

Function Calculo_DV10(strNumero As String) As String
'declara As variáveis
Dim intContador As Integer
Dim intNumero As Integer

Dim intTotalNumero As Integer

Dim intMultiplicador As Integer

Dim intResto As Integer

' se nao for um valor numerico sai da função
If Not IsNumeric(strNumero) Then
  Calculo_DV10 = ""
  Exit Function
End If

'inicia o multiplicador
intMultiplicador = 2

'pega cada caracter do numero a partir da direita
For intContador = Len(strNumero) To 1 Step -1

'extrai o caracter e multiplica pelo multiplicador
intNumero = Val(Mid(strNumero, intContador, 1)) * intMultiplicador

' se o resultado for maior que nove soma os algarismos do resultado
If intNumero > 9 Then
  intNumero = Val(Left(intNumero, 1)) + Val(Right(intNumero, 1))
End If

'soma o resultado para totalização
intTotalNumero = intTotalNumero + intNumero

'se o multiplicador for igual a 2 atribuir valor 1 se for 1 atribui 2
intMultiplicador = IIf(intMultiplicador = 2, 1, 2)

Next

    Dim DezenaSuperior As Integer
    If intTotalNumero < 10 Then
        DezenaSuperior = 10
    Else
        DezenaSuperior = 10 * (Val(Left(CStr(intTotalNumero), 1)) + 1)
    End If
    intResto = DezenaSuperior - intTotalNumero

'verifica as exceções ( 0 -> DV=0 )
Select Case intResto
  Case 0
     Calculo_DV10 = "0"
  Case 10
     Calculo_DV10 = "0"
  Case Else
     Calculo_DV10 = Str(intResto)
End Select
End Function

Private Function calcula_DV_CodBarras(sequencia As String) As Integer

Dim intContador, intNumero, intTotalNumero As Integer
Dim intMultiplicador, intResto, intresultado As Integer
Dim caracter As String

intMultiplicador = 2

For intContador = 1 To 43
   caracter = Mid(Right(sequencia, intContador), 1, 1)
   If intMultiplicador > 9 Then
          intMultiplicador = 2
         intNumero = 0
   End If
   intNumero = caracter * intMultiplicador
   intTotalNumero = intTotalNumero + intNumero
   intMultiplicador = intMultiplicador + 1
Next

intResto = intTotalNumero Mod 11

intresultado = 11 - intResto

If intresultado = 10 Or intresultado = 11 Then
    calcula_DV_CodBarras = 1
Else
    calcula_DV_CodBarras = intresultado
End If
End Function