Così dovrebbe andare:
codice:
Dim ArrErroreRicevuto() As String

ArrErroreRicevuto = Split(ErroreSalvataggio, "-") 

xErrore = ArrErroreRicevuto(0) 
xDescrizione = ArrErroreRicevuto(1)