Function ExtractAlpha(strIn As String) As String
    ExtractAlpha = DropBadChars(strIn, "[A-Z a-z]")
End Function

Function ExtractNumber(strIn As String) As String
    ExtractNumber = DropBadChars(strIn, "[-.0-9]")
End Function