Función para Validar un Imei

Public Function getIMEIsum(byVal sInput as string) As string
Dim bIMEI(14) As Byte
Dim sum1 As Byte
Dim sum2 As Byte
Dim SumOut As Byte
Dim buffer$

For i = 14 To 1 Step -1
bIMEI(i) = Mid(sInput , i, 1)
Next i

For i = 14 To 2 Step -2
If (bIMEI(i) * 2) >= 10 Then
buffer$ = LTrim(Str(bIMEI(i) * 2))
sum1 = sum1 + Val(Mid(buffer$, 1, 1)) + Val(Mid(buffer$, 2, 1))
Else
sum1 = sum1 + (bIMEI(i) * 2)
End If
Next i

For i = 13 To 1 Step -2
sum2 = sum2 + bIMEI(i)
Next i

SumOut = sum1 + sum2

If SumOut Mod 10 = 0 Then
getIMEIsum = sInput & "0"
Else
getIMEIsumt = sInput & CStr((10 - SumOut Mod 10))
End If
End Function