Be sure that you use the font Courier New in the list box.
Close the file with sr.close before the End Sub.

Dim sw as IO.StreamWriter = IO.File.CreateText ("d\net\sequential.txt")
should read as follows:
Dim sw as IO.StreamWriter = IO. CreateText("c:\temp\sequential.txt")

in both places below in the program: