Imports System

Imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        For i As Short = 0 To 6374 ' Limitation of Fiddle. Use Short.MaxValue instead

        Dim str As String = strBCDtoStr(i)

        Console.WriteLine($"{i,3}{vbtab}{str}{vbtab}{StrToShort(str),3}" )

    Next

    End Sub

    Public Function strBCDToStr(ByVal shIn As Short) As String

        'BCD to Text

        Dim m_strTemp As String = ""

        For m_iLoop As Integer = 1 To 4

            m_strTemp = Chr((shIn Mod 16) + 48) & m_strTemp

            shIn = (shIn \ (16S))

        Next

        strBCDToStr = m_strTemp

    End Function

​

    Public Function StrToShort(bcd As String) As Short

        bcd = bcd.Replace(":", "A").Replace(";", "B").Replace("<", "C").Replace("=","D").Replace(">", "E").Replace("?", "F")

        Return Convert.ToInt16(bcd, 16)

    End Function

End Module