Public Shared Function PackedDecimalStringToDouble(ByVal strPackedDecimal As String, ByVal Digits As Integer, ByVal DecimalPosition As Integer) As Double
        Const IBMEBCDICThaiCode As Integer = 20838
        Dim packedConverter As cwbx.PackedConverterClass
        Dim EBCDICEncoding As System.Text.Encoding
        Dim bytes() As Byte
        Try
            EBCDICEncoding = System.Text.Encoding.GetEncoding(IBMEBCDICThaiCode)
 
            bytes = EBCDICEncoding.GetBytes(strPackedDecimal)
 
            packedConverter = New cwbx.PackedConverter
            packedConverter.Digits = 11
            packedConverter.DecimalPosition = 2
 
            Return packedConverter.FromBytes(bytes)
        Catch ex As Exception
            Return Nothing
        End Try
    End Function