Problemer med kode, der mangler et par check

' Eksekvere ftp applikationen med Forbindelse filen som parameter.
        Set WSX = Shell.Exec(COMMAND_FTP & checkFile)

        ' Her samles fejlene til FtpErrorCheck filen.
        Set ReturnCode = WSX.StdErr
       
        ' Her samles dataene til FtpLogCheck filen.
        Set Output = WSX.stdOut

        ' Her skrives fejlene til FtpErrorCheck filen.
        Set objFile = FSO.OpenTextFile(strErrorCheck, 2, True)
        objFile.Write(ReturnCode.ReadAll())
        objFile.Close()
   
    ' Her skrives dataene til FtpLogCheck filen
        Set objFile = FSO.OpenTextFile(strLogCheck, 2, True)
    objFile.WriteLine("Test")
        objFile.Write(Output.ReadAll())
        objFile.Close()
   
    ' Her Læses FtpLogCheck Filen for at finde ud af om det gik planmæssigt. Efter at have lavet en del test,
    ' Ved vi at, hvis alt er gået godt slutter filen på linje syv med Teksten BYE, så derfor tester vi om den gør det.
   
    ' Åbner FtpLogcheck filen for læsning
    set f = fso.OpenTextFile(strLogCheck, 1)
    content = f.ReadAll()  *1
    f.close
    set f = nothing
    arrLines4 = Split(content,vbCrLf)
   
    if NOT ucase(left(ltrim(arrLines4(6)),3)) = "BYE" THEN *2
        EXPLANATION = "Der kan ikke Oprettes forbindelse til Host  " & host
        getFTP = True

1) Jeg Får en fejl hvis f er tom
2) Jeg får fejl hvis arrLines4 ikke indeholder 6 linjer

Hvordan får jeg lige lavet et check på de 2 ting