(где w - двоичный писатель, ранее созданный)
Dim dec = CDec(aString)
Dim lng = CLng(dec * 10000)
Dim bytes = BitConverter.GetBytes(lng)
w.Write(bytes(4))
w.Write(bytes(5))
w.Write(bytes(6))
w.Write(bytes(7))
w.Write(bytes(0))
w.Write(bytes(1))
w.Write(bytes(2))
w.Write(bytes(3))
Могут быть более чистые или лучшие способы, но, похоже, все в порядке
в качестве заголовка, этот формат предназначен только для NON NULL денежных столбцов, я думаю, что вы должны сначала написать байт длины или что-то на этот счет для столбцов с нулевым денежным значением