Изменение недопустимого имени файла

Option Explicit
Function FileNameValidater(FileName As String) As String
    Dim BadCharacters As String, i As Integer
    BadCharacters = "\/:*?<>|" + Chr(34) ' Список плохих символов можно дополнить
    FileName = Trim(FileName)
     For i = 1 To Len(BadCharacters)
            FileName = Replace(FileName, Mid(BadCharacters, i, 1), "_")
     Next
    FileNameValidater = FileName
End Function
 
Private Sub Command1_Click()
    Dim FileNum As Integer
    FileName = FileNameValidater(Text1.Text)
    PathFile = App.Path & "\" & FileName & ".txt"
    FileNum = FreeFile                         'Получаем следующий свободный номер файла.
    Open PathFile For Output As FileNum        'Открываем файл для записи
    Close FileNum
    Text1.Text = FileName
End Sub
 
Private Sub Command2_Click()
    End
End Sub
 
Private Sub Command3_Click()
    Kill (PathFile)
End Sub

Public Function Replacesym(Strin As String) As String
Dim Strout As String
Dim Sim As String
     Strout = Replace(Strin, "/", "_", , , vbBinaryCompare)
      Strout = Replace(Strout, "\", "_")
       Strout = Replace(Strout, "<", "_")
        Strout = Replace(Strout, ">", "_")
         Strout = Replace(Strout, ".", "_")
          Strout = Replace(Strout, "?", "_")
           Strout = Replace(Strout, ":", "_")
            Strout = Replace(Strout, "|", "_")
             Strout = Replace(Strout, "*", "_")
               Strout = Replace(Strout, ";", "_")
                Sim = Chr(34)
                  Strout = Replace(Strout, Sim, "_")
    Replacesym = Strout
End Function

Public Function Replacesym(Strin As String,Optional Bad as String="/\><.?:|*;") As String
Dim Strout As String
     Strout=""
     for i%=1 to len(Strin)
         a$=mid$(Strin,i%,1)
         if Instr(Bad,a$)<>0 or a$=chr$(34) then a$="_"
         Strout=Strout+a$
     next i% 
     Replacesym = Strout
End Function