programming is hard

CleanTags in VBA

Function CleanTags(StringVal As Variant) As String
    
    On Local Error Resume Next
    
    Dim i As Integer
    Dim WorkString As String
    Dim workstring1 As String
    Dim workstring2 As String
    
    Dim Buffer As String
    
    
    Const OpenBrac = "<"
    Const CloseBrac = ">"
    
    Dim TagStart As Integer
    Dim TagEnd As Integer
    Dim a
    
    Dim TagOn As Boolean: TagOn = False

    
    If Len(Trim(StringVal)) = 0 Then Exit Function ' this is an empty string
    
    'for each letter
    For i = 1 To Len(StringVal)
        
        
        a = Mid(StringVal, i, 1)   'examine string
        
        Select Case a
            
             Case OpenBrac 'Is this character an open bracket?
                If TagOn = False Then
                    TagOn = True  'Toggle this is a tag
                    TagStart = i
                End If
        
            Case CloseBrac
                If TagOn = True Then
                    TagOn = False  'Turn off tag toggle
                    TagEnd = i
                End If
    
        End Select
     
     
'copy character for character, but dont copy if Tag Toggle is on.  Quickest way to do it.
     If TagOn = False Then _
        If (a <> ">") And (a <> "<") Then _
        Buffer = Buffer & a  
            
            
            
    Next i
    
    
CleanTags = Buffer 'Return the clean string 

End Function