Zählen von Nummern in Textfile

const TEXTIN = "c:\daten.txt"  
const TEXTOUT = "c:\daten_count.txt"  

dim fso, dic, arrContent, line, objFile

set fso = CreateObject("Scripting.FilesystemObject")  
set dic = CreateObject("Scripting.Dictionary")  

arrContent = Split(fso.OpenTextfile(TEXTIN,1).ReadAll(),vbNewline)

For each line in arrContent
    line = Trim(line)
    If line <> "" Then  
       If not dic.Exists(line) then
           dic.add line,1
       Else
           dic.Item(line) = CDbl(dic.Item(line)) +1
       End if
    End if
Next

set objFile = fso.OpenTextfile(TEXTOUT,2,True)
keys = dic.keys
For i = 0 to dic.count -1
    objFile.WriteLine keys(i) & " = " & dic.Item(keys(i))  
Next
objFile.Close
MsgBox "Feddich"  
set fso = Nothing
set dic = Nothing