Private Function CheckOne(TheData As Textbox, Target As TextBox)
    lblChecked.Text = lblChecked.Text + 1
        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.downforeveryoneorjustme.com/" & Target.Text & "")
           Dim response As System.Net.HttpWebResponse = request.GetResponse()

            Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

            Dim sourcecode As String = sr.ReadToEnd()

TheData.Text = sourcecode
        Return CheckOne
End Function


Private Function MultiCheck(StrData As TextBox, StrTargets As ComboBox)

        With StrTargets
            For ctr = 0 To StrTargets.Items.count - 1

                                    Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.downforeveryoneorjustme.com/" & StrTargets.SelectedText & "")
            Dim response As System.Net.HttpWebResponse = request.GetResponse()
            Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

            Dim sourcecode As String = sr.ReadToEnd()

StrData.Text = sourcecode
        Next
    End With
        Return MultiCheck
        End Function