Function Arrays(ByRef Coordenadas() As String)
l0 = Coordenadas(0)
l1 = Coordenadas(1)
l2 = Coordenadas(2)
l3 = Coordenadas(3)
l4 = Coordenadas(4)
End Function
Private Sub Form_Load()
Dim Nombres(4) As String
Nombres(0) = "1"
Nombres(1) = "2"
Nombres(2) = "3"
Nombres(3) = "4"
Nombres(4) = "5"
Arrays Nombres
End Sub
Espero que te haya servido
