Già scusa.Eccolo!

codice:
Private Sub Comando56_Click()
  
  'Apro la preview
    stDocName = "ReportProposteNuovo"
    DoCmd.OpenReport stDocName, acViewPreview
    
    
'Faccio lo splittaggio

lunghezza = Len(Report_ReportProposteNuovo.Testo27)
lunghezza = lunghezza - 1
stringa = Left(Report_ReportProposteNuovo.Testo27, lunghezza)
Dim ciccio() As String
ciccio = Split(stringa, "|")

Dim i As Integer 'se sono + di 32000 gli elementi dell'array usa il tipo long
For i = 0 To UBound(ciccio)

   Dim pippo() As String
pippo = Split(ciccio(i), "#")

Dim c As Integer 'se sono + di 32000 gli elementi dell'array usa il tipo long

For c = 0 To UBound(pippo)
  
'Scrivo nelle text se si verifica la condizione

If i = "0" Then
If c = "0" Then
Report_ReportProposteNuovo.Testo82.Value = pippo(c)
End If
If c = "1" Then
Report_ReportProposteNuovo.Testo85.Value = pippo(c)
End If
End If

If i = "1" Then
If c = "0" Then
Report_ReportProposteNuovo.Testo87.Value = pippo(c)
End If
If c = "1" Then
Report_ReportProposteNuovo.Testo89.Value = pippo(c)
End If
End If

If i = "2" Then
If c = "0" Then
Report_ReportProposteNuovo.Testo91.Value = pippo(c)
End If
If c = "1" Then
Report_ReportProposteNuovo.Testo92.Value = pippo(c)
End If
End If

If i = "3" Then
If c = "0" Then
Report_ReportProposteNuovo.Testo95.Value = pippo(c)
End If
If c = "1" Then
Report_ReportProposteNuovo.Testo96.Value = pippo(c)
End If
End If

Next c
Next i

End Sub
Grazie mille