Visual Basic - Generar .log o .txt

Como puedo generar un archivo .log o .txt desde una aplicacion en visual basic??
De antemano gracias

Sub LongPrint(sMessage as String)
Dim nFile as Inteer
nFile=FreeFile
Open App.Path & "Log.txt" for Append Shared as #nFile
Print #nFile, format
***********************
Slds