VB.NET Kodlama Hatası

Private Sub Casusla(ByVal strX As String, ByVal strY As String)
    Me.Webmain
    New String(4) {}
    New String(4) {}(0) = "http://allstar.minefight.com/DetectUnits.aspx?x="
    New String(4) {}(0) = "http://allstar.minefight.com/DetectUnits.aspx?x="(1) = strX
    New String(4) {}(0) = "http://allstar.minefight.com/DetectUnits.aspx?x="(1) = strX(2) = "&y="
    New String(4) {}(0) = "http://allstar.minefight.com/DetectUnits.aspx?x="(1) = strX(2) = "&y="(3) = strY.Navigate(New String(4) {}(0) = "http://allstar.minefight.com/DetectUnits.aspx?x="(1) = strX(2) = "&y="(3) = strY(4) = "&mode=sat")
    Do While ((Me.Webmain.ReadyState <> 4) OrElse Me.Webmain.IsBusy)
        System.Windows.Forms.Application.DoEvents()
  
    Loop
    If (Me.Webmain.DocumentText.IndexOf("Üniteler: Yok") = -1) Then
        Me.Webmain.Navigate("http://allstar.minefight.com/InboxSend.aspx")
        Do While ((Me.Webmain.ReadyState <> 4) OrElse Me.Webmain.IsBusy)
            System.Windows.Forms.Application.DoEvents()
      
        Loop
        Dim str1 As String = strX & "," & strY & " nolu koordinatta birlik var."
        Me.Webmain.Document.GetElementById("ctl00_cphMain_tbRcpt").SetAttribute("value", "Asus")
        Me.Webmain.Document.GetElementById("ctl00_cphMain_tbMsg").SetAttribute("value", str1)
        Me.Webmain.Document.GetElementById("ctl00_cphMain_Button1").InvokeMember("click")
        Do While ((Me.Webmain.ReadyState <> 4) OrElse Me.Webmain.IsBusy)
            System.Windows.Forms.Application.DoEvents()
      
        Loop
        System.Threading.Thread.Sleep(5000)
    End If
    Do While ((Me.Webmain.ReadyState <> 4) OrElse Me.Webmain.IsBusy)
        System.Windows.Forms.Application.DoEvents()
  
    Loop
End Sub