記号に対応したシフトJISコード変換するには

IT 2004-11-12 23:52:31 No: 117569

始めまして、VB初心者の私です。
今、文字列(String）を外部機器に送信する際に
ASCIIコードではなく、シフトJISで送らなければならなく、
こまっています。（シリアル通信で）
"A"を送らなければならないときは 82 60 を送らなければいけません。
以下の用にプログラムを書いたのですが、このプログラムだと
アルファベットと数字を送る場合はいいのですが、
"-"などの記号を変換させようとした場合、その記号に対応した
シフトJISを得ることができません。
そこで、それに対応した関数があるのか、又は、関数の組み合わせで
それに対応できるか、教えていただきたく、書込みしました。
なにとぞよろしくお願いします。

Dim byt(1) as Byte
Dim x as String

x="A"
x=Hex$(Asc(x)+31)
byt(0)=&H82
byt(1)="&H" & x
Mscomm1.Output=byt

ken 2004-11-13 00:42:24 No: 117570

Dim bytTemp() As Byte

bytTemp = StrConv(strData, vbFromUnicode)
Mscomm1.Output = bytTemp