pegar parte da string

tinha conseguido fazer assim:

            Dim afterPost As String() = Split(xmlStr, "<!-- post -->")

            teste2 = afterPost(1).ToString()
            Dim depoisPost As String() = Split(teste2, "<!-- /post -->")

            teste = depoisPost(0).ToString()

            strPost = teste