Function Classic$(chaine$)
Dim i%, t$, c As Byte
Application.Volatile
For i = 1 To Len(chaine)
t = Mid(chaine, i, 1)
c = Asc(t)
If c = 47 Or c > 64 And c < 91 Or t Like "#" Then Classic = Classic & t
Next
Classic = Replace(Classic, "/", "_")
End Function