NAME                POSITION                  COUNSELE BY           DATE
abc                    abc                            abc                           123
xyz                    xyz                            xyz                            123
aaa                   aaa                           aaa                            123

    Private Sub btnnotepad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnotepad.Click
 
 
        Dim filename As String = "C:\Documents and Settings\Acer\Desktop\CounsellingSystem\Counsellrecords.txt"
 
        Dim lineoftext As String
        Dim arytext(5) As String
 
 
        arytext(0) = txtname.Text
        arytext(1) = txtnpos.Text
        arytext(2) = txtcname.Text
        arytext(3) = txtcpos.Text
        arytext(4) = DateTimePickerdoc.Value.ToShortDateString
        arytext(5) = DateTimePickerrd.Value.ToShortDateString
 
        lineoftext = String.Join(";", arytext)
 
        Dim objwriter As New System.IO.StreamWriter(filename, True)
        objwriter.WriteLine(lineoftext)
 
        objwriter.Close()
 
        MsgBox("Record Saved To Notepad")
 
    End Sub