program define torumm
syntax varlist ,File(string) [Replace msp]
tempname string
egen `string'=concat(`varlist')
if "`msp'"=="" {
   replace `string'=subinstr(`string',"."," ",.)
}
*tab `string'
outsheet `string' using "`file'", `replace' nonames noquote
end