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

Dim c As Integer
For c = 0 To UBound(pippo)
'qui lavori con il testo contenuto in ogni elemento dell'array
'puoi usare ancora la split per dividere la stringa


Report_ReportProposteNuovo.Testo56 = pippo(0)
Report_ReportProposteNuovo.Testo58 = pippo(1)
Next c