specfolder function error

[alaphate]

showmessage specfolder(20)

it works with no errors
show windows fonts folder path

----------------------------------
dim s as string
s = specfolder(20) 'error in this line
showmessage s

Error message: expect a string but found '20'