OpenFileDialog:
    'will return the absolute path of the file to upload
    FileToRead = Application.GetOpenFilename(, , "Find File", , False)
    
    If Not ((FileToRead = "False") Or (FileToRead = "")) Then
    
        '================ On first loop through file, check water controls ===================

        Open FileToRead For Input As #1
            Do While Not EOF(1)
            
ReadALine:
            Line Input #1, LineRead
            
            If LineRead = "" Then
                GoTo ReadALine
            Else
                'Put in stuff to do to the line of data here
            End If
     
            Loop
     	
        close #1
       'This happens if the user presses Cancel when they are trying to open a file to read
    Else
        ans = MsgBox("You must select a file to read for the program to continue." & VbCrLf & VbCrLf & _
            "Please select a file an try again.", vbOKCancel + vbInformation, "No File Selected")
        If ans = vbCancel Then
            MsgBox "The program is stopped."
            Exit Sub
        Else
            GoTo OpenFileDialog
        End If
        
    End If     

Open and Read File

Visual Basic