For J as Integer = 1 To 3
name(j) = console.ReadLine()
dob(j) = console.ReadLine()
contact(j)= console.ReadLine()
For g as Integer = 1 To 3
record = name(g) & sp & dob(g) & sp & contact(g)
console.WriteLine(record)
record2 = name(1) & sp & dob(1) & sp & contact(1)
console.WriteLine(record2)
Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter("c:\students.txt", True)
For a as Integer = 1 To 3