Create all the queries with a specific prefix e.g. queryMyUsers1,
queryMyUsers2

use the following as the rowsource for the listbox

SELECT Right(Name,Len(name)-5) AS Expr1
FROM MSysObjects
WHERE (((MSysObjects.Name) Like "query*"))
ORDER BY MSysObjects.Name;

if you called the listbox lstQueries

Private Sub lstQueries_DblClick(Cancel As Integer)
   dim adoTest as new adodb.recordset
   with adoTest
       .open "query" & me.lstQueries.column(0),
currentproject.connection,adOpenKeyset,adLockReadOnly
       if .recordcount > 0 then
           Open "c:\MyExported.txt" For Output As #1
           do while not .eof
                   write #1,
.fields("myFirstField").value,.fields("mySecondField").value
                   .movenext
           loop
           close #1
   end if
end with

this code could be modified to allow for multi-selection, I never use the
import wizard as it does not give me the flexability I need most of the
time.

open a file,

http://support.microsoft.com/default.aspx?scid=kb;en-us;303066

save file dialog

http://vbnet.mvps.org/index.html?code/comdlg/filesavedlg.htm

give it ago, hope it is closer to what you need!