Sub insultMe(ByVal Src As Object, ByVal Args As EventArgs)
    'Declare Arrays
    Dim aryAdjectives(8) As String
    Dim aryNouns(6) As String
    
    'Fill Adjective Array
    aryAdjectives(0) = "dumb, "
    aryAdjectives(1) = "stupid, "
    aryAdjectives(2) = "inbread, "
    aryAdjectives(3) = "fat, "
    aryAdjectives(4) = "smelly, "
    aryAdjectives(5) = "pansy ass, "
    aryAdjectives(6) = "bubble blowing, "
    aryAdjectives(7) = "Firefox using, "

    'Fill Noun Array
    aryNouns(0) = "Dunce"
    aryNouns(1) = "Wanker"
    aryNouns(2) = "AOLer"
    aryNouns(3) = "Microsoft Fanboy"
    aryNouns(4) = "speck"
    aryNouns(5) = "Pig"
    
    'Declare Variables
    Dim strName As String = txtName.Text
    Dim strAdjectives As String = ""
    Dim strNoun As String = ""
    Dim numAdjectives As Integer
    Dim numAdjSel As Integer = 0
    Dim numNounSel As Integer = 0
    Dim randomNum As New Random
    Dim n As Integer = 1
    
    'How many adjectives to be in the loop
    numAdjectives = randomNum.Next(1, 3)
    
    'Chose the Adjectives
    For n = 1 To numAdjectives
        numAdjSel = randomNum.Next(1, 9)
        strAdjectives = strAdjectives & aryAdjectives(numAdjSel - 1)
    Next

    'Chose the noun
    numNounSel = randomNum.Next(1, 7)
    strNoun = strNoun & aryNouns(numNounSel - 1)

    'Complete the procedure, add the text to the text box
    lblInsult.Text = strName & " is a " & strAdjectives & " " & strNoun & "." & "<br />" & lblInsult.Text
End Sub