kodlarım aşağıdadır. acil cevap bekliyorum.

Private Sub CommandButton1_Click()
On Error Resume Next
Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")

With IE
.Visible = True
.navigate "http://uygweb.sgk.gov.tr/............."

Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop

.document.all.Item("kulAd").Value = "" 'Kullanıcı Adı
.document.all.Item("sifre").Value = "" 'şifre
.document.all.Item("Submit").Click
.document.all.Item("Submit").Click
.document.all.Item("comboUyruk").Value = "TC"
.document.all.Item("txtTcno").Value = Sheets("Sayfa2").Range("A3") 'TC KİMLİK NUMARASI
.document.all.Item("butonTcAra").Click

'bu arada name=button olan 4 tane buton var birini seçmek istiyorum


Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop


End With

Set IE = Nothing
End Sub