German B4R - DoubleToBytes Problem

Dim BC As ByteConverter
Dim dbl As Double = 10.00
Dim bytes() As Byte = BC.DoublesToBytes(Array As Double(dbl))
Log(bytes)

    Dim BC As ByteConverter
    Dim dbl As Double = 10.00
    Dim bytes() As Byte = BC.DoublesToBytes(Array As Double(dbl))
    Log(bytes(0),TAB,bytes(1),TAB,bytes(2),TAB,bytes(3))
   
    Dim b(4) As Byte
    Dim BC As ByteConverter
    BC.ArrayCopy2(bytes, 0, b, 0, 4)
    Dim d() As Double = BC.DoublesFromBytes(b)
    Log(d(0))     'Anzeige 10

    Dim BC As ByteConverter
    Dim dbl As Double = 10.00
    Dim bytes() As Byte
    bytes = BC.StringToBytes(dbl) 'Die Double Var wird autom. nach String gewandelt...
    Log(bytes)