Stream版です

Import System.IO

'--- 読み
        Dim bytData() As Byte = {&HA, &HD7, &HA3, &H70, &H3D, &H4A, &H3D, &H40}

        '--- MemoryStreamはFileStreamとかでもよい
        Dim brd As New BinaryReader(New MemoryStream(bytData))

        Dim dblTmp = brd.ReadDouble()


'--- 書き
        Dim stm As New MemoryStream   '--- FileStreamとかでもよい
        Dim bwt As New BinaryWriter(stm)
        bwt.Write(29.29)
        bwt.Flush()

        Dim bytData2() As Byte = mem.ToArray()