書き込みの間があいてしまい申し訳ございませんでした
＿|￣|○　またバイトの奴が売上間違いやがった…


そこから毎日のように店を閉めたらＶＢをいじくり
色々なシリアル通信のソフトも使ってみたけれどダメでした…。

RS232CクロスケーブルでPC<-->CD-208を接続
　　　　　　　　↓
　　　　　COMポート2を使ってOPEN
　　　　　通信パラメータ(9800,N,8,1)
　　　　　MSComm1.CommPort = 2
　　　　　MSComm1.Settings = "9600,N,8,1"
　　　　　MSComm1.PortOpen = True
　　　　　　　　　↓
　　どうやらCSV形式でファイルを吐き出すらしいので
　　テキストとしてキャプチャしてみる
　　　　　　　　　
　　 MSComm1.InputMode = comInputModeText
Dim Buffer
Buffer = MSComm1.Input