Allora oregon scusa se scrivo ora ma non ci sono stato, sembra che tutto funzioni bene solo che a els(2) mi da errore runtime 9 indice non compreso nell'intervallo. io ho scritto così:

Dim els() As String
els = Split(stringa, "#")

If Left(els(0), 7) = "-1car1 " Or Left(els(0), 7) = "-2carta1 " Then
text1.Text = Mid(els(0), 8)
End If
If Left(els(1), 7) = "-1car2 " Or Left(els(1), 7) = "-2car2 " Then
text2.Text = Mid(els(1), 8)
End If
If Left(els(2), 7) = "-1car3 " Or Left(els(2), 7) = "-2car3 " Then
text3.text = Mid(els(2), 8)
End If

e continuando solo che mi da errore da els(2).

mamma mia ke scossa di terremoto