＞Button2 をクリックするとメッセージボックスに「000」が表示される状態です。

あら、本当に正常系で実行されているみたいですね。

サンプルが悪く、エラーをきちんと取得できていないのか？
それとも
ドライバーまでは正常にデータが送れているのか？
という切り分けが必要に思います。

プリンタドライバのプロパティから
テストページの印刷はできますか？


＞Dim b(128) As Byte のデータを
＞WritePrinter の２つ目のパラメーターの
＞ IntPtr型に変換する方法を探しているところですが
＞ ご存知でしたらご教示ください。

ごめんなさい。
ここわからないです。

下記ではだめなんでしょうか？
Dim pBytes As IntPtr
Dim dwCount As Int32
dwCount = szString.Length()
pBytes = Marshal.StringToCoTaskMemAnsi(szString)