Getting The Variable

    Dim sKeyword(14) As String 'Settings the array, but the file must be read in (contains 15 variables)
        Dim iUpperBound As Integer = 15 'The MAX that it can be!
        Dim iLowerBound As Integer = 0 'The lowest the random can be
    Dim iTemp As Integer
        iTemp = Int(Rnd() * iUpperBound + iLowerBound) 'Randomly creating a number between the upper and lower

    txtKeyword.Text = sKeyword(iTemp) 'This gets the variable according to the random number and puts it into the textbox