Dim wb As New WebClient
        Dim html As String
        Dim htmlSplitted(-1) As String
        Dim test As String
 
 
        html = wb.DownloadString( _
          "url")
        htmlSplitted = Split(html, "/user/")
 
        For Each sLine As String In htmlSplitted
            test = InStr(sLine, Chr(34))
            'MessageBox.Show(test)
            MsgBox(test)
        Next