Sub макрос1()

    Dim txt As String:      txt = ThisWorkbook.Path & "\files.txt"
    Dim FL1 As Integer:     FL1 = FreeFile
    
    Dim zapis As String, i As Long
    
    Open txt For Input Access Read As #FL1
    
    Do Until EOF(FL1)
        zapis = ""
        Line Input #FL1, zapis
        
        i = i +  1 
        If i =  4  Then
            UserForm1.TextBox1 = zapis
        End If
        If i >=  7  Then
            UserForm1.TextBox2 = zapis
            Exit Do
        End If
    Loop
    
    Close #FL1
    
    Load UserForm1
    UserForm1.Show vbModeless
    
    'UserForm1.Hide
    'Unload UserForm1

End Sub