my code lol

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        a = New Threading.Thread(AddressOf get_do)
        a.Start()
    End Sub
    Sub get_do()
        Try
            user = w.DownloadString("https://www.instagram.com/" & TextBox1.Text)
            Dim findtext As String = "(?<=profilePage_)(.*?)(?=" & """" & ")"
            Dim doregex As MatchCollection = Regex.Matches(user, findtext)
            iduser = (doregex(0).ToString)
            infouser = w2.DownloadString("https://i.instagram.com/api/v1/users/" & iduser & "/info/")
            Dim findtext2 As String = "(?<=" & """" & "profile_pic_id" & """" & ": " & """" & ")(.*?)(?=" & """" & ")"
            Dim doregex2 As MatchCollection = Regex.Matches(infouser, findtext2)
            idpic = (doregex2(0).ToString)
            'MsgBox(idpic)
            If ig.Like_Post_ID(idpic) And ig.Comment_ID(idpic, TextBox2.Text) Then
                MsgBox("Done")
            Else
                MsgBox("Error")
            End If
        Catch ex As Exception
            MsgBox("Error, can't get info usre")
        End Try
        a.Abort()
    End Sub