C# と VB.NET の質問掲示板

使用言語：visual basic6.0
開発環境：windows2000

こんにちは、VBはじめたての初心者です。MSCommコマンドを利用してマイコンと
通信するプログラムを作成中なのですが、わからないことがあるので質問させていただきます。

public aub form_load()
MSComm1.CommPort = 3 'ポート番号設定
MSComm1.Settings = "115200,N,8,1" '設定
MSComm1.PortOpen = True  'ポートオープン
MSComm1.Handshaking = comNone    'フロー制御無し
MSComm1.RTSEnable = False        'RTS制御無し
MSComm1.RThreshold = 1      '１バイト受信毎にOnCommイベント発生

Dim txBuffer As String

End sub

'テキストに表示した受信文字列を変数に格納、さらに必要な文字列だけ抽出する
Private Sub botan_Click()

txBuffer = Text2.Text
x = InStr(1, txBuffer, "e" & vbCrLf, 1)
txBuffer = Mid(txBuffer, x + 3, (Len(txBuffer) - (x + 2)))
Text1.Text = txBuffer       'txBufferの内容確認用

End Sub

Private Sub cmdr_Click()

Text2.Text = ""
MSComm1.Output = "r a0 s 00 j ff" & Chr(13) 'マイコンのデータを読み込むコマンド

End Sub

Private Sub MSComm1_OnComm()

Select Case MSComm1.CommEvent
Case comEvReceive
    Buffer = MSComm1.Input
    Text2.Text = Text2.Text & Buffer
・
・
・
End Select
End Sub

おおざっぱですがこのようなプログラムをつくりました。
目的は受信された文字列（テキストに表示）を変数に格納、さらに必要な文字列だけ抽出する
ことなのですが、このプログラムだとデータを読み込むコマンドを送るボタンとそのデータを
変数に格納して必要な部分を抽出するボタンを二回押さなければならず面倒なので、botan_Click()
の中の命令をそのままcmdr_Click()に入れたのですが、そうするとエラーが出てしまいます。
いろいろと試したのですがどうやらtxBufferの中に受信データが入ってくれないみたいです。
原因は何か。何かいい方法がないかアドバイスいただけたら幸いです。
やりたいことは、一回のボタンクリックで変数に受信データのほしいとこだけを格納させることです。
よろしくお願いします。