Function Parse(ByVal Data As String, ByVal Left As String, ByVal Right As String) As String
If Dat*****ntains(Left) AndAlso Dat*****ntains(Right) Then
Return Data.Substring(Data.IndexOf(Left) + Left.Length, Data.IndexOf(Right) - Data.IndexOf(Left) - Left.Length)
Else
Return String.Empty
End If
End Function