すいません。
かなり頭を悩ませていて、皆様のお力をお貸しください。
開発環境
VB6.0 SP6 Windows2k

バッファ処理についてなのですが、
処理途中でバッファが飛んでしまうようなプログラムになってしまいました。

Public Buff(0 to 1000) as String '基本バッファ
Public WBuff(0 to 1000) as String '送信バッファ
Public Buff_Count as Integer
Public Buff_Flg as　Boolean
Public ia as Integer
Public ib as Integer
〜〜処理0〜〜
Buff(Buff_Count) = data　'処理0により作成されたデータを格納
Buff_Count = Buff_Count + 1　'カウントUP
※上記2行の処理は複数回行われることもある。
処理0終了後処理1に移る。