Ændre en Variable til et Array

Hej eXperten,

Jeg har et lille stykke kode, jeg burde virke, men det gør det ikke.

Jeg har brug for at lave en variable on til et array.

Variablen består af flere linier, og jeg vil gerne have en splittet på linier ind i et array.

Nedenstående er et tænkt eksempel, for at illustrere mit problem.

'---------- Klip --

Option Explicit

Dim WshShell, oExecObject
Dim Username, Password, strCommand, strText, strLine
Dim arrText()

Set WshShell = CreateObject("WScript.Shell")

'Main
strCommand = "%comspec% /c dir c:\"
Set oExecObject = WshShell.Exec(strCommand)

strText = oExecObject.StdOut.ReadAll()

GetLines()
'WScript.Echo strText

'-----------------------------------------------------------------------------------------
'Subs
Sub GetLines
    arrText = Split(strText, vbCrLf)
    For Each strLine In arrText
        WScript.Echo strLine
    Next
End Sub

' --- Slut --