Code:
Dim filety As FileType
filety = "test"
CreateExtension filety
doesn't work