Function Extract$(t$, n%)
Dim critere, i%, j%
critere = Array(1, 4, 8) 'liste des critères, à adapter
For i = 1 To Len(t)
If Mid(t, i, 1) = "[" Then j = j + 1
If j = critere(n - 1) Then
If Mid(t, i + 1, 1) = "]" Then Exit Function
For j = i + 2 To Len(t)
If Mid(t, j, 1) = "]" Then Exit For
Next
t = Mid(t, i + 1, j - i - 1)
j = InStr(t, ":")
Extract = Trim(Mid(t, j + 1))
Exit Function
End If
Next
End Function