Option Explicit 'define variables to send (could also use an array) Dim var1 As String Dim var2 As String Dim var3 As String Dim var4 As String Dim var5 As String Dim sVarTextFilename As String Sub Main 'obtain the name of the text file that holds the variables sVarTextFilename = arg1 Call readTheVariables() MsgBox "Var1: " & var1 MsgBox "Var2: " & var2 MsgBox "Var3: " & var3 MsgBox "Var4: " & var4 MsgBox "Var5: " & var5 End Sub Function readTheVariables() Const ForReading = 1 Const ForWriting = 2 Dim fso As Object Dim f As Object Dim i As Integer Dim sText As String 'MsgBox sVarTextFilename 'sVarTextFilename = "C:\Users\elementb\Documents\My IDEA Documents\IDEA Projects\Samples\var test file.txt" i = 1 Set fso = CreateObject("Scripting.FileSystemObject") 'Set 'open the file for reading Set f = fso.OpenTextFile(sVarTextFilename, ForReading) Do While f.AtEndOfStream <> True 'for large number of variables using an array would be better Select Case i Case 1 var1 = f.readline Case 2 var2 = f.readline Case 3 var3 = f.readline Case 4 var4 = f.readline Case 5 var5 = f.readline End Select i = i + 1 Loop 'msgbox f.ReadAll Set f = Nothing Set fso = Nothing End Function