Imports System

Public Module Module1

    Public Sub Main()

        Dim Name(4) As String

        Dim DOB(4) As String

        Dim contact(4) As String 

        For Count = 0 To 4

        Console.WriteLine("Enter Name") 

        Name(4) = Console.ReadLine

        Console.WriteLine("Enter date of birth")

        DOB(4) = Console.ReadLine

        Console.Writeline("Enter Contact")

        Contact(4) = Console.ReadLine

     Next

         Dim record As String

         record = Name(4) & DOB(4) & Contact(4)

         Dim Filehandle As System.IO.StreamWriter

     Filehandle = My.Computer.FileSystem.OpenTextFileWriter("E:\Student.txt", True)

         Filehandle.WriteLine(record)

Filehandle.Close()   

    End Sub

End Module

​

​

End Module