[HELP] Random Units

Option Explicit On
Public Class Form1
    Private RandomWords(0 To 5) As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim WordPointer As Integer

        WordPointer = Int(Rnd() * 5) + 1
        TextBox1.Text = RandomWords(WordPointer) & vbNewLine
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RandomWords(0) = "lolwut"
        RandomWords(1) = "asdf"
        RandomWords(2) = "as234"
        RandomWords(3) = "Aasdf556"
        RandomWords(4) = "563y"
        RandomWords(5) = "D2346"
    End Sub
End Class