Public Function IntToBCD(ByVal j As Integer) As Short
        If j > 999 Or j < 0 Then Throw New System.ArgumentOutOfRangeException("j")
        Dim res As Short
        Dim shift As Short
        While j > 0
            res += (j Mod 10) << shift
            shift += 4
            j \= 10
        End While
        Return res
    End Function
 
    Public Function BCDToInt(ByVal j As Short) As Integer
        Dim res As Integer
        Dim mult As Integer = 1
        While j > 0
            res += (j And &HF) * mult
            j >>= 4
            mult *= 10
        End While
        Return res
    End Function

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov