Dim code As String = TextBox2.Text
WebBrowser1.DocumentText = code
WaitForPageLoad()
'MsgBox("loaded")
WebBrowser1.Document.ExecCommand("SelectAll", True, vbNull)
WebBrowser1.Document.ExecCommand("Copy", False, vbNull)
TextBox3.Text = Clipboard.GetText
Dim shoot As String
shoot = TextBox3.Text
shoot = shoot.Replace$(vbCrLf, "")
shoot = shoot.Replace$(" ", ":")
shoot = shoot.Replace$("::::", ":")
shoot = shoot.Replace$("socks4/5", "SOCKS")
shoot = shoot.Replace$("HTTPS", "HTTNPS")
shoot = shoot.Replace$("Saudi:Arabia", "Saudiarabia")
shoot = shoot.Replace$("United:States", "Unitedstates")
shoot = shoot.Replace$("Russian:Federation", "Russianfederation")
shoot = shoot.Replace$("Moldova,:Republic:of", "Moldova")
shoot = shoot.Replace$("Korea,:Republic:of", "Korea")
shoot = shoot.Replace$("Czech:Republic", "Czech")
shoot = shoot.Replace$("Viet:Nam", "Vietnam")
shoot = shoot.Replace$("El:Salvador", "Elsalvador")
shoot = shoot.Replace$("Netherlands:Antilles", "Netherlandsantilles")
shoot = shoot.Replace$("Sri:Lanka", "Srilanka")
shoot = shoot.Replace$("High:+KA", "Ka")
TextBox3.Text = shoot
'TextBox3.Text = WebBrowser1.Document.ActiveElement.InnerText
code = TextBox3.Text
Dim expression As New System.Text.RegularExpressions.Regex("[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}:[0-9]{1,4}:[a-z]{0,5}:[A-Z]{1}[a-z]{0,18}:[A-Z]{0,6}:[A-Z]{0,1}[a-z]{0,6}")
Dim mtac As MatchCollection = expression.Matches(code)
For Each itemcode As Match In mtac
' Dim itemcode2 As String = itemcode
hidemyass_listbox.Items.Add(itemcode)
Next