Dim stream(50) As Byte
        Dim b() As Byte
        Dim point As Integer
        Dim A() As Double = {12, 7, -5}
 
        For i As Integer = 0 To A.Length
            b = System.Text.Encoding.Default.GetBytes(Chr(A(i)))
            b.CopyTo(stream, point)
            point = point + b.Length
        Next

------------------------------------------------------------------Es gibt 10 Arten von Menschen. Diejenigen die Bin?r lesen k?nnen, und die anderen.