データの一部だけ取り出すには？ (ID:117207)

名前

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

本文 家で色々やってみた所、成功しました。みなさんどうもありがとうございました。後々の参考の為に一応コードを書いておきます。 Private Sub msSerial_OnComm() Dim Buffer As String Dim Number As String Select Case msSerial.CommEvent Case comEvReceive '受信データを表示 Buffer = msSerial.Input Number = Mid(Buffer, 2, 8) Text1.Text = Number'テストの為の表示 あと、参考になるか分かりませんがRThresholdの値を変えていかないとStringに収まらなくなるようです。