Friendsnippets

1 Sub WriteToATextFile(s As String)
2 MyFile = ActiveWorkbook.Path & "\graph.dot"
3 'set and open file for output
4 fnum = FreeFile()
5 Open MyFile For Output As fnum
6 'write project info and then a blank line. Note the comma is required
7 Print #fnum, s
8 Close #fnum
9 End Sub