Read from txt file

Sub ReadFromFile()

Dim configFile As String
Dim configWhole As String
Dim configArr As Variant 'nebude to fungovat so String https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/data-type-summary

configFile = Application.ActiveWorkbook.Path & "\config.txt" 'Application.ActiveWorkbook.Path vráti cestu do zložky aktívneho workbooku
    'alternativa Application.ThisWorkbook.Path vráti cestu ku zložke v ktorej je súbor s týmto makrom
Open configFile For Input As #1 'netusim ako funguje Open+Input+Close :(, viac info na https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/line-inputstatement
configWhole = Input$(LOF(1), 1)
Close #1
configArr = Split(configWhole, vbNewLine) 'https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/split-function

End Sub