Tilfældigt valg af nummer i array (Visual Basic)

Hvilken version af VB bruger du? 6.0? 2005? Dette eksempel er i VB 2005:

Dim arr As Array = Split("BMW,Audi,Lamborghini,Mercedes,Volvo,Toyota,Opel,Fiat,Seat,Ferrari", ",")
Dim i As Integer = UBound(arr)
Dim random As Integer = CInt(Int((i * Rnd())))
Me.ListBox1.Items.Add(arr(random))

Dette script finder et tilfældig nummer, som arrayet indeholder. Jeg havde blot ét problem, jeg ikke lige pt. kan løse: på en eller anden åndsvag måde, kommer den sidste værdi i arrayet aldrig med. En nem måde at løse dette på, er fx. at indsætte en tom værdi sidst i arrayet, eller ihvertfald bare en værdi du ikke skal bruge til noget.

Mvh.
Claus Thomsen