[color=blue]Function[/color] RemoveChars([color=blue]ByVal[/color] sFilename _
  [color=blue]As String[/color]) [color=blue]As String[/color]
  [color=blue]Dim[/color] I [color=blue]As Long[/color], tFileName, C _
  [color=blue]As Byte[/color]
 
  tFileName = ""
  [color=blue]If[/color] sFilename <> "" [color=blue]Then[/color]
 
    [color=blue]For[/color] I = 1 [color=blue]To[/color] Len(sFilename)
      C = Asc(Mid(sFilename, I, 1))
 
      [color=darkgreen]' (C = 46)                              . Punkt
      [color=darkgreen]' (C >= 48 And C <= 57)    0 - 9
      [color=darkgreen]' (C >= 65 And C <= 90)    A - Z
      [color=darkgreen]' (C >= 97 And C <= 122)  a - z
      [color=blue]If[/color] (C = 46) [color=blue]Or[/color] (C >= 48 _
        [color=blue]And[/color] C <= 57) [color=blue]Or[/color] (C >= 65 _
        [color=blue]And[/color] C <= 90) [color=blue]Or[/color] _
        (C >= 97 [color=blue]And[/color] C <= 122) [color=blue]Then[/color]
        tFileName = tFileName & Chr(C)
      [color=blue]End If[/color]
 
    [color=blue]Next[/color] I
 
  [color=blue]End If[/color]
 
  RemoveChars = tFileName
[color=blue]End Function[/color]
 
 
[color=darkgreen]' Aufruf
Dateiname = RemoveChars(Dateiname)

Viel Spass,
R@lf