No se sirve de algo yo era que prepare esta funcion para un proyecto mio.
Public Function Reemplazar(ByVal str As String) As String
'CARACTERES NO ADMITIDOS POR WINDOWS = \/:*?"<>|
str = Replace(str, "\", "-")
str = Replace(str, "/", "-")
str = Replace(str, ":", "-")
str = Replace(str, "*", "-")
str = Replace(str, "<", "-")
str = Replace(str, ">", "-")
str = Replace(str, "|", "-")
str = Replace(str, " ", "-")
str = Replace(str, """", "-")
Reemplazar = str
End Function
Label1.Caption = Reemplazar(Text1.Text)