webbrowser ile textboxlara veri girişi yapamıyorum?

[pitsss]

kolay gelsin arkadaşlar. daha önce webbrowseri kullanarak bursagazın sitesine girip randevularımı otomatik olarak alıyordum.
bunu yaparken şu kodları kullanıyordum.
aşağıdaki kırmızı renkli olarak belirttiğim sitedeki textboxun html ismi idi.(txtBK_1)
ancak site değiştiği için bu textboxların isimleri de şu şekilde değişmiş.

aaab.RandevuView.Prjno_editor.1

bu kodu
WebBrowser1.Document.all.txtBK_2.Value = Sheets("giris").Cells(3, 28)
buradaki txtBK_2 yerine girmeye çalıştığımda şu şekilde hata alıyorum. bu sorunu nasıl aşabilirim acaba ?
hata :expected:end of statement

Private Sub CommandButton3_Click()

'buton renkleri
CommandButton3.Enabled = False
CommandButton3.BackColor = &H8000000F
CommandButton4.BackColor = &H80000013
' hatalrı kayır etmeden önce temizleme işlemi yapılcak
Sheets("hatalar1").Range("a:z").ClearContents
Application.DisplayAlerts = False
WebBrowser1.Document.all.[COLOR="Red"][B][SIZE="4"]txtBK_1[/SIZE][/B][/COLOR].Value = Sheets("giris").Cells(2, 28)
WebBrowser1.Document.all.txtBK_2.Value = Sheets("giris").Cells(3, 28)
WebBrowser1.Document.all.txtBK_3.Value = Sheets("giris").Cells(4, 28)
WebBrowser1.Document.all.txtBK_4.Value = Sheets("giris").Cells(5, 28)
WebBrowser1.Document.all.txtBK_5.Value = Sheets("giris").Cells(6, 28)
WebBrowser1.Document.all.txtBK_6.Value = Sheets("giris").Cells(7, 28)
WebBrowser1.Document.all.txtBK_7.Value = Sheets("giris").Cells(8, 28)
WebBrowser1.Document.all.txtBK_8.Value = Sheets("giris").Cells(9, 28)
WebBrowser1.Document.all.txtBK_9.Value = Sheets("giris").Cells(10, 28)
WebBrowser1.Document.all.txtBK_10.Value = Sheets("giris").Cells(11, 28)
WebBrowser1.Document.all.txtpK_1.Value = Sheets("giris").Cells(2, 29)
WebBrowser1.Document.all.txtpK_2.Value = Sheets("giris").Cells(3, 29)
WebBrowser1.Document.all.txtpK_3.Value = Sheets("giris").Cells(4, 29)
WebBrowser1.Document.all.txtpK_4.Value = Sheets("giris").Cells(5, 29)
WebBrowser1.Document.all.txtpK_5.Value = Sheets("giris").Cells(6, 29)
WebBrowser1.Document.all.txtpK_6.Value = Sheets("giris").Cells(7, 29)
WebBrowser1.Document.all.txtpK_7.Value = Sheets("giris").Cells(8, 29)
WebBrowser1.Document.all.txtpK_8.Value = Sheets("giris").Cells(9, 29)
WebBrowser1.Document.all.txtpK_9.Value = Sheets("giris").Cells(10, 29)
WebBrowser1.Document.all.txtpK_10.Value = Sheets("giris").Cells(11, 29)
WebBrowser1.Document.all.aaab.RandevuView.Button.Click
CommandButton4.Caption = "SAYFA YÜKLENENE KADAR LÜTFEN BEKLEYİNİZ!"

On Error Resume Next
DoEvents: DoEvents: DoEvents: DoEvents: DoEvents
        Do Until WebBrowser1.ReadyState = 4: DoEvents: Loop

 Dim IE As Object
 Dim HTML_Body As Object, MyTable As Object
 Dim alan As String
 Dim HTML_TableRows As Object, HTML_TableDivisions As Object
    Dim RetVal As Variant
        Do Until WebBrowser1.ReadyState = 4: DoEvents: Loop
        Do While WebBrowser1.Busy: DoEvents: Loop
        Set HTML_Body = WebBrowser1.Document.GetElementsByTagName("Body").Item(0)
        Set HTML_Tables = HTML_Body.GetElementsByTagName("Table")
        On Error Resume Next
        DoEvents: DoEvents: DoEvents: DoEvents: DoEvents
        DoEvents: DoEvents: DoEvents: DoEvents: DoEvents
       ' For c = 1 To 6' eğer gerekirse tüm tabloları almak için bu kod kullanılır
        i = 0
            Set MyTable = HTML_Tables(4) ' buraya 4 yerine c yazılırsa tüm tablolar alınır
            Set HTML_TableRows = MyTable.GetElementsByTagName("Tr")
            
            For Each MyRow In HTML_TableRows
            j = 0
            i = i + 1
            Set HTML_TableDivisions = MyRow.GetElementsByTagName("Td")
            For Each Td In HTML_TableDivisions
                j = j + 1
                RetVal = Td.InnerText
                Sheets("hatalar1").Cells(i, j) = RetVal
            Next
        Next
      'Next c
      
    DoEvents: DoEvents: DoEvents: DoEvents: DoEvents
    DoEvents: DoEvents: DoEvents: DoEvents: DoEvents

    Set HTML_Body = Nothing
    Set HTML_Tables = Nothing
    Set MyTable = Nothing
  
    CommandButton4.Caption = "TÜM PROJELERİ SEÇ VE ALT PROJELERİ GÖR"
    CommandButton4.Enabled = True

 
'___________________________________________________________________________________
'hatalar1 syfasındaki verileri kontrol edip ayir sayfasındakilerle eşleştirip açıklama kısmına hata kodu yazılacak.
'___________________________________________________________________________________

Call webranhatalar1


End Sub