Function CleanPostName(ByVal sPostName As String, _
Optional ByVal bCreateURL As Boolean = False) As String
Dim idx As Long
Dim sNew As String
For idx = 1 To Len(sPostName)
Select Case Asc(Mid$(sPostName, idx, 1))
Case 48 To 57 'leave numbers
sNew = sNew & Mid$(sPostName, idx, 1)
Case 65 To 90, 97 To 122 'convert letters to lowercase
sNew = sNew & LCase$(Mid$(sPostName, idx, 1))
Case 45 'leave dashes - no two dashes
If idx> 1 And Right$(sNew, 1) <> Chr$(45) Then
sNew = sNew & Mid$(sPostName, idx, 1)
End If
Case 32 'convert spaces to dashes - multiple spaces = one dash
If idx> 1 And Right$(sNew, 1) <> Chr$(45) Then
sNew = sNew & Chr$(45)
End If
End Select
Next idx
If bCreateURL Then
sNew = "http://www.wickedfire.com/makemonies/" & sNew & "/"
End If
CleanPostName = sNew
End Function