Public Sub Routine2
Dim outFile As FileStream
outFile = file.OpenWrite("sample.txt")
outFile.write(System.Text.Encoding.Ascii.GetBytes("My first output file!"), 0, 21)

End Sub