I am trying to figure out how to fix these problems in my code

Debug Team Tools Test AnalyzeWindow Help Debug Any CPU Employee Data 1.vb Employee Data 1.vb [C Employee Data 2.vb. EWindowsApp1 Employee Data 2.vb [Design" Label2 Private Sub Labe16 Click(sender As Object, e As EventArgs) Handles Labe16.Click End Sub Private Sub frmEmployeeData2 Load(sender As Object, e As EventArgs) Handles My Get File Name fileName InputBox("Enter the File Name", "File Name") txtFile File.OpenText(fileName) setData( End Sub Public Sub setData() recordno + 1 If Not txtFile.EndofStream Then txtRecordNumberText = recordno txtFirstName. Text txtFileReadine) txtMiddleName. TexttxtFile.ReadLineO txtLastName.Text txtFile.Readine) txt EmpNumber.Text txtFile.Readine) txtDept.Text txtFile.ReadLine) txt Telephone.Text txtFile.ReadLine() txtExtension.Text txtFile.ReadLine) txtEmail.Text txtFile.ReadLine) Else MessageBox. Show("End of Files") 0 6 ror List - Current Document (Employee Data 2.vb) .urrent Document- 011 Errors |||owarnings |||00Messages |||xrII|Build + Intellisense Code Description BC30311 Value of type StreamReader cannot be converted to 'StreamWriter BC30456 'EndOfStream is not a member of StreamWriter XBC30512 Option Strict On disallows implicit conversions from Integer to 'String BC30456 'ReadLine' is not a member of 'StreamWriter. 3 BC30456 ReadLine' is not a member of StreamWriter BC30456 'ReadLine is not a member of StreamWriter