Option Explicit

Private Sub CommandButton1_Click()
    Dim File As String
     
    ChDir ThisWorkbook.Path
    File = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Select Text File")
    
    If File = "False" Then Exit Sub
    
    If Dir(File) = "" Then
        MsgBox File & " Not found !"
    Else
        TextBox1 = File
    End If

    
End Sub

Private Sub CommandButton2_Click()
    Dim Text As String
    
    If Dir(TextBox1) = "" Then
        MsgBox File & "File Path & Name must be specied !"
    Else
            
        Open TextBox1 For Input As #1 ' OPEN FILE FOR READING
                
        Line Input #1, Text ' READ FIRST LINE
        
        If Text <> "??" Then
            MsgBox "File not compatable etc"
        Else
            Do While Not EOF(FileNo)
                'PARSE EACH FILE LINE HERE AND WRITE TO ACTIVE SHEET !!
            Loop
        End If
    
        Close #1   'CLOSE FILE
    End If
End Sub