Авто-добавление в ComboBox

Imports System.Net
Imports System.IO
 
Public Class Form1
 
    Public Function Pars(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, Optional ByRef startPos As Integer = 0) As String
        Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
        Dim strResult As String
        strResult = String.Empty
        iPos = strSource.IndexOf(strStart, startPos)
        iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
        If iPos <> -1 AndAlso iEnd <> -1 Then
            strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
        End If
        Return strResult
    End Function
 
    Public Function Post(ByRef send As String)
        Dim objHttp As Object = CreateObject("MSXML2.XMLHTTP")
        objHttp.open("GET", send, False)
        objHttp.send()
        Do While objHttp.readyState <> 4
            Threading.Thread.Sleep(0)
        Loop
        Return Uri.UnescapeDataString(objHttp.responseText)
    End Function
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim _post As String = Post("https://www.cyberforum.ru/vb-net/thread856359.html")
        Dim version() As String = Pars(_post, "Например :", "и").Trim.Split(" ")
        For i As Integer = 0 To version.Length - 1
            ComboBox1.Items.Add(version(i))
        Next
    End Sub
End Class

Dim _post As String = Post("https://dl.dropboxusercontent.com/s/ec3r0c5x8rw187f/log.html?token_hash=AAFN0hZRV-FtUy_VlEV6cQU_R34VrYkqz7-8_HHsjRQXHg&dl=1")
        Dim version() As String = Pars(_post, "c", "go").Trim.Split(" ")
        For i As Integer = 0 To version.Length - 1
        ComboBox1.Items.Add(Version(i))
        Next

Dim response As WebResponse = WebRequest.Create(New Uri("ссылка")).GetResponse
        Dim reader As New StreamReader(response.GetResponseStream)
        Do While (reader.Peek >= 0)
            Me.ComboBox1.Items.Add(reader.ReadLine)
        Loop