Creating Text Files through VBA

Hi,

Is there any way to create Blank Txt files in folders (Producing the same result as right clicking in a folder and selecting New - Text Document) in one line VBA code similarly to the MkDIR command for folders?

Thanks in advance,

James