Io farei così
codice:
   Dim sTesto As String = "primo###secondo###terzo"
   Dim Indirizzi As Array = Split(sTesto, "###")
   MessageBox.Show(Indirizzi(0) + Environment.NewLine + Indirizzi(1) + Environment.NewLine + Indirizzi(2))