Public Matriz(0 To 1099) As String Private Sub Form_Load() Matriz(0) = "str1" Matriz(1) = "str2" '... Matriz(1099) = "str1100" End Sub