Write to file

Public sub WriteToFile(byval FileLocation as string, byval Text as string)
dim writer as new system.io.streamwriter(FileLocation)
writer.write(Text)
writer.close
End sub