Получить данные из файлов Dat на одном листе

Question

У меня есть одна папка с большим количеством «DAT-файлов» -s

Мне нужно извлечь в одном листе значения из ячеек A3 и A4 из всех файлов Dat.

Sub Test3()

    Dim sMsg As String

    ' LIST ALL TEXT FILES IN REPORT DIRECTORY '
    Const strFolder As String = "\\svkt0010\ptc\common\Machines\RMP1\Measured data\"
    Const strPattern As String = "*.dat"
    Dim strFile As String
    strFile = Dir(strFolder & strPattern, vbNormal)
    Do While Len(strFile) > 0
        sMsg = sMsg & strFile & Chr(13)
        strFile = Dir
    Loop
    MsgBox sMsg

End Sub

Это работает, но мне нужны значения из ячеек A3 и A4 в ячейках листа.