[VB6]: Identificazione all'interno di una stringa

[EngLab]

Eccolo!

Public Function Finale(Stringa As String, DaTrovare as String) As String 'Dove Stringa è tipo "abcdef-backup-jhsdjhkh" e da trovare è "backup"
Dim i As Integer

i = InStr(1, Stringa, DaTrovare)
Finale = Right(Stringa, i + 2) 'Nell'esempio, ti restituirà "backup-jhsdjhkh
End Function