Funzione Excel SeparaStringa

Function SeparaStringa(Ingresso As String, Separatore As String, Sx As Boolean) As String
'
' Creata il 23 Febbraio 2009
' Funzione da utilizzare per separare da una stringa due sottostringhe separate
' da un separatore convenzionale come uno spazio oppure una virgola o qualsiasi altro valore
' che è comunque indicabile nel secondo parametro di lancio della funzione.
' Il terzo parametro di lancio può essere VERO (identifica la sottostringa sinistra) o FALSO
'
Dim lunghezza

Ingresso = LTrim(Ingresso)
If Sx Then
SeparaStringa = Left(Ingresso, InStrRev(Ingresso, Separatore) - 1)
Else
SeparaStringa = Mid(Ingresso, InStrRev(Ingresso, Separatore) + 1)
End If


End Function