Public Function inbtwn(ByVal input As String, ByVal startcut As String, ByVal finishcut As String) As Object
        Dim obj2 As Object
        Dim str As String = Strings.Split(Strings.Split(input, startcut, -1, CompareMethod.Binary)(1), finishcut, -1, CompareMethod.Binary)(0)
        obj2 = str
        Return obj2
    End Function