Sub mdbQuery2txt()
' by Floere :)
' freax@pandora.be

    Dim dbs
    Dim qdf

    Set dbs = CurrentDb
    dbs.QueryDefs.Refresh
    
    Open InputBox("Enter filename", "Enter filename", dbs.Name & ".query.txt") For Output As #1
    
    For Each qdf In dbs.QueryDefs
            
        Write #1, qdf.Name
        Write #1, qdf.SQL
        Write #1,
        
    Next qdf
    
    Set dbs = Nothing
    Close #1
    
End Sub