テキストデータをバイナリデータへ変換したいのですが (ID:121618)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 いつも拝見させて頂いております。 早速ですが、テキストボックスに表示されているデータを、 そのままバイナリデータに変換して、ＣＯＭポートから 送信したいのですが、どうしてもデータ変換のところが うまくできません。 たとえば、テキストボックスに、"FF"と入っていたら、 それをバイナリデータの"FF"として送信したいのです。 ＷＥＢやヘルプ等で検索してみたのですが、解決できません でした。 何卒ご教授の程、宜しくお願いいたします。 記述しているコードは以下のものです。 Private Sub Form_Load() Text1.Text = "FF112233445566778899FF" End Sub Private Sub Command1_Click() Dim Read_Text As String Dim bytdat() As Byte Dim i As Integer For i = 1 To LenB(Text1.Text) / 2 Read_Text = Mid(Text1.Text, i, 2) bytdat() = Read_Text '←この箇所を色々試したのですが... MScomm1.Output = bytdat i = i + 1 Next i End Sub