Option Strict On
Imports System.IO
 
Public Class frmMain
    Inherits System.Windows.Forms.Form
 
 
    Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        ' Let the user select a file to open. Pass the selected file to the ReadFile procedure.
        With ofdOpenFile
            .Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
            .Title = "Select a File to Open"
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                If .FileName <> String.Empty Then
                    ReadFile(.FileName)
                Else
                    MessageBox.Show("No file selected.", "Error")
                End If
            End If
        End With
 
 
    End Sub
 
    Sub ReadFile(ByVal strFileName As String)
 
        ' Read the contents of the specified file into the UnitsSold array.
 
        Dim inputFile As StreamReader
        Dim intCount As Integer = 1
 
        ' Declare variables.
        Dim intN As Integer
        Dim strFirst As String
        Dim strMiddle As String
        Dim strLast As String
        Dim intEmpNum As Integer
        Dim strDept As String
        Dim strPhone As String
        Dim intExt As Integer
        Dim strEmail As String
 
        ' Open the file. 
        inputFile = File.OpenText(strFileName)
 
        ' Read the data.
        For intCount = 1 To 1
            ' Read the record from the file.
            intN = CInt(inputFile.ReadLine())
            strFirst = inputFile.ReadLine()
            strMiddle = inputFile.ReadLine()
            strLast = inputFile.ReadLine()
            intEmpNum = CInt(inputFile.ReadLine())
            strDept = inputFile.ReadLine()
            strPhone = inputFile.ReadLine()
            intExt = CInt(inputFile.ReadLine())
            strEmail = inputFile.ReadLine()
 
            ' Display the input data on the record form.
 
            lblN.Text = intN.ToString()
            lblFirst.Text = strFirst.ToString()
            lblMiddle.Text = strMiddle.ToString()
            lblLast.Text = strLast.ToString()
            lblEmpNum.Text = intEmpNum.ToString()
            lblDept.Text = strDept.ToString()
            lblPhone.Text = strPhone.ToString()
            lblExt.Text = intExt.ToString()
            lblEmail.Text = strEmail.ToString()
        Next intCount
 
        ' Close the file. 
        inputFile.Close()
 
    End Sub
 
    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
 
        ' Here is where I need some help!
 
    End Sub
End Class