imposta il file.txt cosi:
codice:
# val1 - val2

2 4
6 8
5 10
codice:
Dim objFSO
    Dim objFile
    Dim strLine
    Dim strArr
    Dim i
    Dim v1(3)
    Dim v2(3)
        
    file = "C:\file.txt"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile(file, 1)
    i = 0
    
    Do Until objFile.AtEndOfStream
        strLine = objFile.Readline
        
        If Mid(strLine, 1, 1) = "#" Then
            objFile.SkipLine
        Else
            strArr = Split(strLine, " ")
            v1(i) = strArr(0)
            v2(i) = strArr(1)
            MsgBox (v1(i) & "-" & v2(i))
            i = i + 1
        End If
    Loop