>>700
だらだらしたコードを読む気は起きないんで適当に。

> Dim buffer() As Byte = New [Byte]() {}

これ要素数 0 の配列になるだろ。

あと Base64Encoding はしなくていいのか？