Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button2.Click
        Dim s As String = (Me.RemoveInvalidPathChars("C:\Test.txt ^<|")) ' HIER 
        ' DEIN STRING 
    End Sub
    Function RemoveInvalidPathChars(ByVal s As String) As String
        Dim c As Char() = IO.Path.InvalidPathChars
        Dim sTmp As String
        For a As Integer = 0 To s.Length - 1
            If Not c.IndexOf(c, CType(s.Substring(a, 1), Char)) > -1 Then
                sTmp += s.Substring(a, 1)
            End If
        Next
        Return sTmp
    End Function