> コードはめちゃくちゃ長いので…本当すいません。
> 
> GpAdrsBuf1はinteger型でアドレス番号　Aはstring型で任意数です

いや、そうじゃなく・・・

そこの前でオブジェクトを開放しているんじゃないの？
それが原因じゃないの？

というのを確認する意味でも、それを再現できる部分を抜き出したコード（ミニマムコード）を見せて欲しかったんだけど。

たとえば、
「以下のコードでIFの中が実行されません。
どうしたら問題なく行えるのでしょうか? 」
って書かれて、あなたは、「hanteiが10じゃないからじゃないの？」以外にどんな回答が出来るんですか？

If hantei = 10 Then
'処理
End If