Prova un pò così:
Spero di non aver sbagliato..anche io sono alle prime armi.
Fammi sapere
Ciao
in pratica non assegno il valore al singolo elemento dell'array(i) benì all'array stesso.codice:Private Sub SplipArray() Dim dbDEC029 As String Dim dbDEC029Array() As String Dim i As Integer dbDEC029 = (" /11-8-2/8-7/8-3/11-8-3/0-8-4/12/8-5/12-8-5/11-8-5/11-8-4/12-8-6/0-8-3/11/12-8-3/0-1/0/1/2/3/4/5/6/7/8/9/8-2/11-8-6/12-8-4/8-6/0-8-6/0-8-7/8-4/12-1/12-2/12-3/12-4/12-5/12-6/12-7/12-8/12-9/11-1/11-2/11-3/11-4/11-5/11-6/11-7/11-8/11-9/0-2/0-3/0-4/0-5/0-6/0-7/0-8/0-9/12-8-2/11-8-7/0-8-2/12-8-7/0-8-5") For i = 1 To 58 dbDEC029Array = Split(dbDEC029, "/") MsgBox(dbDEC029Array(i)) Next End Sub