problemer med array

jeg sender en dir kommando til cmd.exe
piper outputtet fra cmd.exe til en txtfil
den txtfil åbner jeg så og kører igennem så jeg får samlet alt indholdet i en streng
den streng splitter jeg så op i et array så jeg kan bruge en linie ad gangen i min timer funktion

men det er lidt underligt
for det første får jeg kun sidste linie fra txtfilen med i min streng
og for det andet siger den "sub or function not defined" ved mit array
koden kommer her:

Sub docmd(cmd As String)
CmdTarget = "#lortekanal"
Shell "cmd /c " & cmd & " >> skod.txt"
strLine = ""
Open App.Path & "\skod.txt" For Input As #1
  Do
    Line Input #1, strLine
    strLine = strLine & vbCrLf
  Loop Until EOF(1)
Close #1
'strLine <-- indeholder kun sidste linie af skod.txt ??
CmdOutPutArray = Split(strLine, vbCrLf) 'det er det array den går kold ved senere
CmdLineNo = 1
sub368 ("PRIVMSG #lortekanal :" & strLine)

cmdTimer.Enabled = True
CmdinProgress = "yes"
End Sub


'CmdOutPutArray(CmdLineNo) er det array hvorved den siger sub or function not defined

Sub cmdTimer_Timer()
sub368 ("PRIVMSG " & CmdTarget & " :" & CmdOutPutArray(CmdLineNo))
CmdLineNo = CmdLineNo + 1
If CmdLineNo = UBound(CmdOutPut) Then
CmdinProgress = "no"
cmdTimer.Enabled = False
sub368 ("PRIVMSG " & CmdTarget & " :done")
End If
CmdLineNo = CmdLineNo + 1
End Sub