> ソースがあり正常に動く状態ですが
ダウト。少なくとも
> MSComm1.Output = "DAT(10,"TEST")" + vbCrLf
の部分は文法エラーになると思いますよ。

それに、改行文字を + で繋いでいる割には、
> MSComm1.Output = "PIT(" & "-6d" & ")" + vbCrLf
の行では & での連結が併用されている(しかも連結処理する意味がない)など、
コードに一貫性が無いものも気になります。本当に元の処理と同一なのでしょうか?


それはさておき、お使いのプリンタ言語は何でしょうか?

MSComm をバイナリモードではなくテキストモードで利用していることから、
少なくとも 201PL や ESC/P 系統の言語でないことは読み取れたのですが、
プリンタ言語は専門外なので、コマンドを見ても判断が付きませんでした。