Function YaesuToDec(ByVal PortReceived As Integer) As String
 
        Dim Bit1 As Integer
        Dim Bit2 As Integer
 
        Bit1 = Int(PortReceived / 16)
        Bit2 = PortReceived - (Bit1 * 16)
 
            YaesuToDec = Bit1 & Bit2
 
    End Function