New VBcode

[moeur]

This is wierd, look at all the pretty colors
I don't like scroll bars

Private Function ExtractText(fulltext As String, tags As clsTags)
    fulltext = "This sucks"
    'extracts and returns the text between the tags
    Dim P1 As Integer, P2 As Integer
    P1 = InStr(fulltext, tags.Starting.char)
    P2 = InStr(P1 + 1, fulltext, tags.Ending.char)
    ExtractText = Mid(fulltext, P1 + 1, P2 - P1 - 1)
End Function