Formular Textfeld als Dateiname

[kainz]

Ich habe ein Formular, wo per Makro aus einem (oder mehreren) Textfeld(ern) gleich beim abspeichern der Dateiname erzeugt wird.

Der Code lautet:

Sub FileSave()

If ActiveDocument.Path = "" Then 'Falls Dokument noch nie gespeichert wurde
FileSaveAs
Exit Sub
End If
ActiveDocument.Save
End Sub

Sub FileSaveAs()
With Dialogs(wdDialogFileSaveAs) 'Beispiel: 2008_01_28_KO_4220_102360_Toner PC75A.doc
.Name = ActiveDocument.FormFields("datum").Result & "_KO_" & _
ActiveDocument.FormFields("werk").Result & "_" & _
ActiveDocument.FormFields("lieferant").Result & "_" & _
ActiveDocument.FormFields("artikel").Result
.Show
End With
End Sub

Funktioniert auch wunderbar, solange nicht bestimmte Zeichen ("/", "\" , "",...) in diesen Formularfeldern vorkommen - wird mir natürlich nicht als Dateiname akzeptiert.

Wie kann ich jetzt per VB diese "Sonderzeichen" in ein "_" umwandeln, damit das Dokument ohne Fehler abgespeichert werden kann??

Vielen Dank schon mal für Eure Hilfe