Matrizes: Variáveis que representam mais de um valor

Public Class MyFirstArray

Private Sub CmdCalcula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCalcula.Click

Dim players() As String = {"Dan", "Fred", "Bart", "Carlos", _

"Ty", "Juan", "Jay", "Sam", "Pedro"}

Dim i As Integer = CInt(TextBox1.Text)

MsgBox(players(i) & " is on first base.")

End Sub

End Class