VBScript version of WordPress' santitize_title_with_dashes

gistfile1.txt

Function sanitize_title_with_dashes(title As String) As String

    Dim oDoc As HTMLDocument
    Set oDoc = New HTMLDocument
    oDoc.body.innerHTML = title

    title = oDoc.body.innerText
    title = LCase(title)
    title = Replace(title, " ", "-")
    title = Replace(title, ".", "-")

    Dim oReg As Object
    Set oReg = CreateObject("VBScript.RegExp")
    oReg.Global = True
    oReg.IgnoreCase = True
    oReg.Pattern = "[^a-z0-9 _-]"
    title = oReg.Replace(title, "")
    sanitize_title_with_dashes = title
End Function