Untitled

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