Array to output randomized values
I'm pretty new to VB so bear with me please...

Is there a way that I can have an array Numbers(0 to 2) output a random number (1 through 6) for each variable each time it is called?  I'm trying to take those three random numbers and depending on what number it generates (1 through 6), it gets assigned a different value. So for example

If any of the Numbers(0 to 2) = 1 then
 the variable that met that = "blue"


This is what I currently have, although its not in an array.  I am just trying to see if an array would make this a lot simpler.

     Sub GenerateNumbers(ByVal Number1, ByVal Number2, ByVal Number3)
        'I got confused on when to use Randomize(), so I just put it before all of them
        Randomize()
        Number1 = CInt(Int((6 * Rnd()) + 1))
        Randomize()
        Number2 = CInt(Int((6 * Rnd()) + 1))
        Randomize()
        Number3 = CInt(Int((6 * Rnd()) + 1))

        If Number1 = 1 Then
            Number1 = "Cherries"
        ElseIf Number1 = 2 Then
            Number1 = "Oranges"
        ElseIf Number1 = 3 Then
            Number1 = "Plums"
        ElseIf Number1 = 4 Then
            Number1 = "Bells"
        ElseIf Number1 = 5 Then
            Number1 = "Melons"
        Else : Number1 = "Bar"

        End If

        If Number2 = 1 Then
            Number2 = "Cherries"
        ElseIf Number2 = 2 Then
            Number2 = "Oranges"
        ElseIf Number2 = 3 Then
            Number2 = "Plums"
        ElseIf Number2 = 4 Then
            Number2 = "Bells"
        ElseIf Number2 = 5 Then
            Number2 = "Melons"
        Else : Number2 = "Bar"

        End If

        If Number3 = 1 Then
            Number3 = "Cherries"
        ElseIf Number3 = 2 Then
            Number3 = "Oranges"
        ElseIf Number3 = 3 Then
            Number3 = "Plums"
        ElseIf Number3 = 4 Then
            Number3 = "Bells"
        ElseIf Number3 = 5 Then
            Number3 = "Melons"
        Else : Number3 = "Bar"

        End If

    End Sub
Array to output randomized values
===

I'm pretty new to VB so bear with me please...

Is there a way that I can have an array Numbers(0 to 2) output a random number (1 through 6) for each variable each time it is called?  I'm trying to take those three random numbers and depending on what number it generates (1 through 6), it gets assigned a different value. So for example

If any of the Numbers(0 to 2) = 1 then
 the variable that met that = "blue"


This is what I currently have, although its not in an array.  I am just trying to see if an array would make this a lot simpler.

     Sub GenerateNumbers(ByVal Number1, ByVal Number2, ByVal Number3)
        'I got confused on when to use Randomize(), so I just put it before all of them
        Randomize()
        Number1 = CInt(Int((6 * Rnd()) + 1))
        Randomize()
        Number2 = CInt(Int((6 * Rnd()) + 1))
        Randomize()
        Number3 = CInt(Int((6 * Rnd()) + 1))

        If Number1 = 1 Then
            Number1 = "Cherries"
        ElseIf Number1 = 2 Then
            Number1 = "Oranges"
        ElseIf Number1 = 3 Then
            Number1 = "Plums"
        ElseIf Number1 = 4 Then
            Number1 = "Bells"
        ElseIf Number1 = 5 Then
            Number1 = "Melons"
        Else : Number1 = "Bar"

        End If

        If Number2 = 1 Then
            Number2 = "Cherries"
        ElseIf Number2 = 2 Then
            Number2 = "Oranges"
        ElseIf Number2 = 3 Then
            Number2 = "Plums"
        ElseIf Number2 = 4 Then
            Number2 = "Bells"
        ElseIf Number2 = 5 Then
            Number2 = "Melons"
        Else : Number2 = "Bar"

        End If

        If Number3 = 1 Then
            Number3 = "Cherries"
        ElseIf Number3 = 2 Then
            Number3 = "Oranges"
        ElseIf Number3 = 3 Then
            Number3 = "Plums"
        ElseIf Number3 = 4 Then
            Number3 = "Bells"
        ElseIf Number3 = 5 Then
            Number3 = "Melons"
        Else : Number3 = "Bar"

        End If

    End Sub