imposta il file.txt cosi:
codice:# val1 - val2 2 4 6 8 5 10codice: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![]()