hvorfor skriver den 202002 istedet for 2002 ??

hvorfor skriver den 202002 istedet for 2002 (filen hedder fx. 200208084531PM.xml

kode ---

'Løber de filer i mappen 'threads' igennem som er mindre end Session('Viste_Dage')-gamle
For Each thread In objFiler
    fil = thread.Name
   
    'Konverterer fil-navnet til korrekt dato-format:
    tdato = left(fil,8)
    tdato = Right(tdato,2) & "-" & Mid(tdato, 5,2) & "-" & Left(tdato,4)
   
    If DateDiff("d", CDate(tdato), now) < CInt(Session("Viste_Dage")) Then
        Set objXML = Server.CreateObject("Microsoft.XMLDOM")
        objXML.load(strFullPath & "\" & fil)
        Set rod = objXML.documentElement.selectNodes("besked")
        'For at få beskeder skrevet ud i faldende rækkefølge (nyeste øverst),
        'sætter jeg resultatet fra vis(rod, 1) forrest i en output-streng for hver tråd.
        output = smartshow(rod, 1) & output
    End If
Next