Public Enum leSettings As Integer
    FilterRaw = 1
    FilterSimple = 2

End Enum

Dim filename = System.Environment.CurrentDirectory & Path.DirectorySeparatorChar & GUI_3pi.txtSettingsFilename.Text
        Dim setts As Array
        Dim setting As String
        setts = System.Enum.GetValues(GetType(leSettings))

        MsgBox("defined ")
        Dim writer As StreamWriter = _
        New StreamWriter(filename)
        MsgBox("file created ")
        For Each setting In setts
            writer.WriteLine(setting)
            MsgBox("wrote stuff into file  ")
        Next
        MsgBox("more stuff written  ")
        writer.Close()
        MsgBox("done ")