VBScript では、おそらく辞書を使用して値を格納します。
Set fso = CreateObject("Scripting.FileSystemObject")
Set vars = CreateObject("Scripting.Dictionary")
i = 1
For Each val In Split(fso.OpenTextFile("C:\path\to\your.txt").ReadAll, " -")
vars.Add "var" & i, Trim(val)
i = i + 1
Next
辞書要素に特定の名前が必要な場合は、それらを配列で提供できます。
Set fso = CreateObject("Scripting.FileSystemObject")
Set vars = CreateObject("Scripting.Dictionary")
names = Array("apples", "pineapples", ...)
i = 0
For Each val In Split(fso.OpenTextFile("C:\path\to\your.txt").ReadAll, " -")
vars.Add names(i), Trim(val)
i = i + 1
Next
もちろん、名前の数は値の数以上でなければなりません。そうしないと、エラーが発生します。