であたしは、インデントの通りに直すだけではなく、

変数名も変えてやった。相手の意見も通し、自分の意見も通したワケです。

strNyrkt = objTxtbox.Value
intCount = 0
Set oCon = objConnection

こんな感じっすかね。
すると彼女はにこにこ笑いながら
「うーん、なんかこう、すっごくがんばってる感じがします」
とおっしゃいました。