[HELP] Hi - Bot help

Public Sub LogIn()
    Dim threadFreeze As System.Threading.Thread
    Dim WithEvents threadFreezeMe As cFreezeME        
WebBrowser1.Document.GetElementById("user").SetAttribute("value", "lala")
        WebBrowser1.Document.GetElementById("password").SetAttribute("value", "lala")
        WebBrowser1.Document.GetElementById("login_button").InvokeMember("click")
        Dim threadFreezeMe As New cFreezeME

        threadFreeze = New Threading.Thread(AddressOf threadFreezeMe.FreezeME)
        threadFreeze.Start()

                Dim elementList As HtmlElementCollection
                Dim curElement As HtmlElement
                elementList = WebBrowser1.Document.GetElementsByTagName("a")
                For Each curElement In elementList
        
        
                If curElement.GetAttribute("innerText").Equals("Mundo 20") Then
        
                curElement.InvokeMember("click")
        
               Next


    End Sub

    Public Class cFreezeME
        Public Function FreezeME()
            Threading.Thread.Sleep(5000)
            Return MsgBox("Login done!")
        End Function
    End Class