Outlook macro, kopiering af email attachment

Hej

Jeg er igang med at lave en macro til Outlook.
Jeg er stadig grøn i VB så mit problem er lidt uoverskueligt må jeg indrømme.

Macroen skal kopiere alle attachments over i en specifik mappe som den finde ud emailens subject.

Det fungere sådan set... men kun halvt da ikke alle filer bliver sendt over.. men kun omkring halvdelen.

Som test bruger jeg nogen emails der har subject 280xx

Kode:
Sub AttSaver()
    Dim oApp As Application
    Dim oNS As NameSpace
    Dim oMsg As Object
    Dim oAttachments As Outlook.Attachments
    Dim strControl
    Dim iSubject
    Dim tu
    Dim hu
    Dim i As Integer
           
    Set oApp = New Outlook.Application
    Set oNS = oApp.GetNamespace("MAPI")
    Set oFolder = oNS.GetDefaultFolder(olFolderInbox)
    strControl = 0
   
    For Each oMsg In oFolder.Items
        With oMsg
            iSubject = .Subject
            If Val(iSubject) > 7999 Then
                For Each Item In oMsg.Attachments
                    tu = Left(iSubject, 2)
                    hu = Left(iSubject, 3)
                    With Item
                        .SaveAsFile "C:\" & tu & "000-" & tu & "999\" & hu & "00-" & hu & "99\" & iSubject & "\org\" & .FileName
                        .Delete
                    End With
                Next
            End If
        End With
    Next
End Sub

Er der nogen der måske kan vise mig en anden løsning... eller komme med en aller anden mangel i koden er måske kan være årsagen til at ikke sender alle attached filer over...