Regex e.g

Dim htmlmy As String
            htmlmy = (bg.DownloadString("https://www.instagram.com/graphql/query/?query_id=17888483320059182&variables=%7B%22id%22:%22" & eb(0) & "%22,%22first%22:50,%22after%22:null%7D"))
            Try
                Dim findtext2 As String = "(?<=" & """" & "shortcode" & """" & ":" & """" & ")(.*?)(?=" & """" & ")"
                Dim myregex2 As String = (htmlmy) 'Your HTML code
                Dim doregex2 As MatchCollection = Regex.Matches(myregex2, findtext2)
                Dim matches2 As String = ""
                Dim sor As String = ""
                For Each match2 As Match In doregex2
                    sor = match2.ToString
                    If Not TextBox1.Text.Contains(sor) Then
                        scode.Items.Add(match2)
                        matches2 = matches2 + match2.ToString + Environment.NewLine
                    End If
                Next
                TextBox1.AppendText(matches2)
                Label1.Text = scode.Items.Count
            Catch ex As Exception
                'MsgBox("Something is wrong, Mabey this account is Private!")
            End Try