' StringToFile
' http://www.utteraccess.com/wiki/index.php/StringToFile
' Code courtesy of UtterAccess Wiki
' Licensed under Creative Commons License
' http://creativecommons.org/licenses/by-sa/3.0/
'
' You are free to use this code in any application,
' provided this notice is left unchanged.
'
' rev  date                          brief descripton
' 1.0  2012-01-17                    
'
Public Function StringToFile( _
   SourceString As String, _
   DestFile As String _
   )
 'prelim, no validations yet
 Dim i As Integer
 
 i = FreeFile
 
 Open DestFile For Append As #i
   Print #i, SourceString
 Close #i

End Function