VBSでHTMLタグを除去するために下記のようなコードを作成したのですが
もっと高速にする方法はないでしょうか？

Function DeleteHtmlTag(ByVal s)
　Dim ret
　ret = ""
　Dim i, bTag, w
　bTag = False
　For i = 1 To Len(s)
　　w = Mid(s, i, 1)
　　Select Case w
　　　Case "<"
　　　　bTag = True
　　　Case ">"
　　　　bTag = False
　　　Case Else
　　　　If bTag = False Then
　　　　　ret = ret & w
　　　　End If
　　End Select
　Next
　DeleteHtmlTag = ret
End Function