VB.NET Shell Checker

Imports System
Imports System.IO
Imports System.IO.Stream
Imports System.IO.StreamWriter
Imports System.IO.StreamReader

Public Class Form1

    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        webBrowser1.Navigate(textBox1.Text)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        working.Text = "0"
        Nonworking.Text = "0"
        alreadyin.Text = "0"
    End Sub

    Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Clipboard.SetText(TextBox2.Text)
    End Sub

    Private Sub webBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles webBrowser1.DocumentCompleted
        If TextBox2.Text.Contains(textBox1.Text) Then
            AlreadyIn.text = AlreadyIn.text + 1
        ElseIf webBrowser1.Document.Body.InnerText.Contains("UDP") Then
            working.Text = working.Text + 1
            TextBox2.Text = TextBox2.Text & textBox1.Text & vbCrLf & vbCrLf
        ElseIf webBrowser1.Document.Body.InnerText.Contains("(Don't DoS yourself nub)") Then
            working.Text = working.Text + 1
            TextBox2.Text = TextBox2.Text & textBox1.Text & vbCrLf & vbCrLf
        Else
            Nonworking.Text = Nonworking.Text + 1
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim SaveFile As New SaveFileDialog
        SaveFile.FileName = "Shells.txt"
        SaveFile.Filter = "Text Files|*.txt"
        SaveFile.FilterIndex = "1"
        SaveFile.Title = "Save file as"
        SaveFile.ShowDialog()
        Try
            Dim HurrHaa As New StreamWriter(SaveFile.FileName)
            HurrHaa.Write(TextBox2.Text)
            HurrHaa.Close()



        Catch ex As Exception

        End Try


    End Sub