Function ON_8(t$)
Dim i%, a$(3) 'base 0
For i = 1 To Len(t) - 8
If Mid(t, i, 3) = "O20" Or Mid(t, i, 3) = "N20" Then
a(0) = Mid(t, i, 1): a(1) = Mid(t, i + 1, 8)
a(2) = Mid(t, i + 9, 1): a(3) = Mid(t, i + 10, 8)
Exit For
End If
Next
ON_8 = a 'matrice (vecteur ligne)
End Function