on errorで元の位置にもどるには？

解決

ひろつの  2001-11-05 14:16:02  No: 103734  IP: [192.*.*.*]

on error が実行されたら、エラーを修復して元の位置に戻りたいのですがいい方法はありますか？
例
on error goto errdata

errdata:
    If Err.Number = 9 Then
        RBufCnt = RBufCnt + 5
        ReDim Preserve RBuf(RBufCnt) As Byte
        Resume Next
    End If
RBuf(n)にデータを順次入れ込んでいる時に個数が足らなくなった時エラーになってしまうのですが、上のようにカウンタを増やして元の位置に戻ろうと思ったのですが、記述のようにnextと書いてあるので、次の行すなわちエラーが発生した行のデータが格納できません。
何かいい方法はありますか？
教えて下さい。

編集 削除
ひろつの  2001-11-05 15:27:06  No: 103735  IP: [192.*.*.*]

出来ました

編集 削除
おさむらい  2003-10-14 17:21:19  No: 103736  IP: [192.*.*.*]

すみません！
どっやって解決しましたか？
同じことで悩んでおります。
お願いします！

編集 削除
Say  2003-10-14 23:17:38  No: 103737  IP: [192.*.*.*]

ヘルプで「Resume ステートメント」の項を読みましょう。

編集 削除
おさむらい  2003-10-15 16:27:31  No: 103738  IP: [192.*.*.*]

なるほど！

編集 削除