Something like this?
[filename pathname] = uiputfile('*.sin','Save file as');
save(fullfile(pathname,filename),'varname','-ascii')
% or exchange last line with one of the following:
% save(fullfile(pathname,filename),'varname','-ascii','-tabs')
% save(fullfile(pathname,filename),'varname','-ascii','-double')
% save(fullfile(pathname,filename),'varname','-ascii','-double','-tabs')