Function CleanUp (input)
      Dim objRegExp, outputStr
      Set objRegExp = New Regexp

      objRegExp.IgnoreCase = True
      objRegExp.Global = True
      objRegExp.Pattern = "((?![a-zA-Z0-9]).)+"
      outputStr = objRegExp.Replace(input, "-")

      objRegExp.Pattern = "-+"
      outputStr = objRegExp.Replace(outputStr, "-")

      CleanUp = outputStr
    End Function

    MsgBox (CleanUp("Test"))