SerialPort.Readについて

1：たか：2010/02/16(火) 11:27:38: お世話になります。

WEB（VB2005）で調べたソースをお借りして
シリアル通信のプログラムを作成しています。
受信することは出来たのですが
数十回に一度、以下のような異常が発生しています。
何か良い対処方法を教えていただきたいです。

Private Sub SerialPort1_DataReceived(ByVal sender As System.Object,
ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
Handles SerialPort1.DataReceived

Dim dlgData As ReceiveDataDelegate = New

ReceiveDataDelegate(AddressOf DataAnalyze)

Dim ReadBuff(SerialPort1.BytesToRead - 1) As Byte

SerialPort1.Read(ReadBuff, 0, SerialPort1.BytesToRead) ←①

For i As Integer = 0 To ReadBuff.Length - 1
Me.Invoke(dlgData, CInt(ReadBuff(i)))
Next
End Sub

　①の部分で ArgumentException
配列のオフセットおよび長さが範囲を超えているか、カウンターがソースコレクションのイ
　　ンデックスから最後までの要素の数より大きい値です。

　ReadBuff{Length=1}
(0)0

宜しくお願いします。
13：たか：2010/02/17(水) 16:09:16: はい。
まとめていただいた通りです。

Try Catchを入れて起動できるように修正します。
何から何まで
本当に有難うございました。
14：コーチ財布：2013/10/23(水) 19:41:33: continuously i used to read smaller articles or reviews that as well clear their motive, and that is also happening with this post which I am reading at this time.
コーチ財布 http://www.sedeinc.com/
15：その他の世界一流スーパーコピー：2018/10/23(火) 07:28:26: 【2018新作】爆安通販!
2018超人気【即日発送】
在庫一掃販売中信用ある!
【２０１5人気殺到】激安通販!
大人気本物保証!
2018【品質保証書】
Japan送料無料☆正規販売店
大量入サイト!
発送で送料無料です!
限定セール中市場!
高級品本物保証!
人気新作、ピンクの最新アイテムを海外通販!
新品入荷定番!
激安通販Japan即日発送!
2018【品質保証書】

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）