Function BaliseExtractor(ByVal AnyBuffer As String, ByVal StartLabel As String, ByVal MiddleValue As String, ByVal EndLabel As String) As String If AnyBuffer.Contains(StartLabel) = False Then Return Nothing Dim Position As Integer = Nothing Dim PosChar As String = Nothing Dim Valeur As String = Nothing Position = AnyBuffer.IndexOf(StartLabel) Do PosChar = AnyBuffer(Position) If PosChar = MiddleValue Then Do If AnyBuffer(Position + 1) = EndLabel Then Exit Do Position += 1 Valeur &= AnyBuffer(Position) Loop Position = -1 Exit Do End If Position += 1 Loop Until Position = -1 Return Valeur End Function