Youtube Comment Bot ExcelSheet - kleines Problem!

Option Explicit
Sub Macro1()
On Error GoTo Catch
  
    Dim i As Long
    Dim j As Long
    Dim cnt As Long
    
    Dim IE As Object
    Dim objComment As Object
    Dim oTotalElement As Object
    Dim objCommentBTN As Object
    Dim objCommentCl As Object
        
    
    Set IE = CreateObject("InternetExplorer.Application")  
    IE.Navigate Sheets("Start").Range("C11").Value  
    Application.StatusBar = "Loading..."  
    IE.Visible = True
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)  
    Loop
 
    Application.StatusBar = "Search form submission. Please wait..."  
    

    Set oTotalElement = IE.document.getElementsByClassName("**yt-uix-tile-link**")  
    cnt = 2
   While i < oTotalElement.Length
     If InStr(oTotalElement(i), "list") = 0 Then  
      If InStr(oTotalElement(i), "channel") = 0 Then  
      Sheets("Links").Range("A" + CStr(cnt)).Value = CStr(cnt - 1)  
      Sheets("Links").Range("B" + CStr(cnt)).Value = oTotalElement(i)  
      cnt = cnt + 1
      End If
      End If
    i = i + 1
   Wend
   
    i = 0
    j = 0
     While i < 10
     ' Set objCommentBTN = Nothing  
      Set objCommentCl = Nothing
      Set objComment = Nothing
     
      IE.Navigate Sheets("Links").Range("B" + CStr(i + 2)).Value  
      Application.StatusBar = "Loading..."  
         Do While IE.Busy
           Application.Wait DateAdd("s", 1, Now)  
         Loop
    
         Application.StatusBar = "Search form submission. Please wait..."  
         
         
         
jmp:
         Set objCommentCl = IE.document.getElementsByClassName("**comment-simplebox-text**")  
          Set objComment = IE.document.getElementsByClassName("**comment-simplebox-renderer-collapsed-content**")  
         If objComment.Length = 0 Then
           Application.Wait (Now + TimeValue("00:00:15"))  
           j = j + 1
           If j = 4 Then
           j = 0
           GoTo goaway
           Else
                      GoTo jmp
           End If
         End If
                 
         objComment(0).Click
         Application.Wait (Now + TimeValue("00:00:10"))  
          objCommentCl(0).innerText = Sheets("Start").Range("C14").Value  
            Set objCommentBTN = Nothing
             Application.Wait (Now + TimeValue("00:00:10"))  
               
           
            Set objCommentBTN = IE.document.getElementsByClassName("**comment-simplebox-submit**")  
          
        
            objCommentBTN(0).Click
           Application.Wait (Now + TimeValue("00:00:10"))  
goaway:
         i = i + 1
     Wend


Catch:
   MsgBox "Something is not right, contact the owner of this product"  
     Exit Sub
End Sub