それより質問者は何で 40001 回に分けてコピーしてるか意図不明。
VB って連続バイトのコピーもできないのか?