invio allegati (problema con nome file con spazio)

[Kahm]

salve a tutti

avendo il seguente codcie:

        Dim filename As String
        Dim emailAttachement As Mail.MailAttachment ' Attachment
        If Fileupload.PostedFile.FileName <> "" Then filename = Fileupload.PostedFile.FileName
        filename = Replace(filename, "\", "\\")
        filename = Replace(filename, "/", "//")
        filename = Replace(filename, " ", "%20")

sto cercando di inviare una mail, con l'allegato che sceglie l'utente
se l'utente sceglie un file tipo : "c:\pippo.txt" tutto bene
ma basta uno spazio tipo : "c:\pippo e paperino.txt" che va tutto male
Invalid mail attachment 'c:\\pippo%20e%20paperino.txt'.

quei replace dopo il codice lo ho agiunto io per vedere dove è il problema in quanto pensavo che mettendo un "%20" al posto dello spazio risolvesse qualcosa, ma invano
come posso risolvere?

grazie