Adesso sei stato chiaro ...
... adatta il codice alle tue esigenze ...codice:Dim s As String Dim l1 As Long Dim l2 As Long s = "[INIZIO]STRINGA[FINE]" l1 = InStr(s, "[INIZIO]") l2 = InStr(s, "[FINE]") MsgBox(Mid(s, l1 + 8, l2 - l1 - 8))
Adesso sei stato chiaro ...
... adatta il codice alle tue esigenze ...codice:Dim s As String Dim l1 As Long Dim l2 As Long s = "[INIZIO]STRINGA[FINE]" l1 = InStr(s, "[INIZIO]") l2 = InStr(s, "[FINE]") MsgBox(Mid(s, l1 + 8, l2 - l1 - 8))