FUNZIONE PULISCI STRINGA DAI CARATTERI SPECIALI

Vi allego qui sotto il codice della funzione, che ha lo scopo di pulire una stringa da tutti i caratteri speciali che windows non accetta.La potete usare per esempio se dovete creare una cartella e non deve contenere i caratteri speciali o solamente volete che la stringa sia Alfanumerica. 

Private Function ClearString(ByVal strIn As String) As String

    Dim ch As Variant
    For Each ch In Array(",", "%", "/", "'", ".", "(", ")", ";", "!", "+", "^", "&", "\", "?", "]", "[", "{", "}", "=", "|", ":", "_")
        strIn = Replace(strIn, ch, "")
    Next ch
    ClearString = Trim$(strIn)

End Function