Command buton ile aynı yerden devam etmesi

[chakistes]

merhaba arkadaşlar aşağıdaki kod ile giriş için yapıyorum güvenlik kodunu manuel olarak girip devam ettiğim için CommandButton2 de tekrar başa dönüyor hata veriyor objIEBrowser ile commandbutton1 ile giriş yapıp devam ettikten sonra Commantbutton 2 de bastığımda devam etsin istiyorum.

CommandButton1_Click()
Dim objIEBrowser
Set objIEBrowser = CreateObject("InternetExplorer.Application")
objIEBrowser.Visible = True
objIEBrowser.Navigate2 "https://xxxxx.xxxxx.xxxx.tr/giris.aspx"
Do While objIEBrowser.Busy
Loop
bekletT
objIEBrowser.Document.getElementById("ctl00_ContentPlaceHolder1_txtAd").Value = "XXXXXXX"
objIEBrowser.Document.getElementById("ctl00_ContentPlaceHolder1_txt_sifre").Value = "XXXXXXXXXXX"

End Sub
-----------AKTARMA İÇİN KULLANDIĞIM KOD
CommandButton2_Click()

objIEBrowser.Navigate ("https://xxxx.xxx.xxx.tr/resmi/gelir_a.aspx?SYID=87")
Application.Wait (Now + TimeValue("0:00:01"))
bekletT
objIEBrowser.Document.getElementById("RadOdeyenTip_Arrow").Click
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys "{TAB}"
bekletT
objIEBrowser.Document.getElementById("RadOdeyenTip_Input").Value = "Öğrenciler"
Application.SendKeys "{TAB}"
objIEBrowser.Document.getElementById("Txtevrakno").Value = "1"
bekletT
objIEBrowser.Document.getElementById("btnOdeyen").Click
End Sub