''' <summary>
    ''' Prüft eine übergebene Zahl nach Interleaved 2 of 5
    ''' </summary>
    ''' <param name="code">zu prüfende Zahl</param>
    ''' <returns>TRUE, wenn die Zahl der Interleaved 2/5 Prüfziffernlogik 
    ' entspricht</returns>
    ''' <remarks>11.10.2010</remarks>
    Public Function Interleave2of5(ByVal code As Integer) As Boolean
        Dim iCounter As Integer
        Dim iResult As Integer
        For Each c As Char In code.ToString
            iCounter += 1
            If iCounter < code.ToString.Length Then
                If iCounter Mod 2 = 0 Then
                    iResult += CInt(Val(c))
                Else
                    iResult += CInt(Val(c)) * 3
                End If
            End If
        Next
        If (iResult Mod 10).ToString = code.ToString.Last() Then
            Return True
        Else
            Return False
        End If
    End Function