hjælp til makro , msgbox

er der en der kan hjælpe mig med at færdiggøre denne makro

det er denne msgbox jeg gerne vil have ændret
MsgBox (knr & " versionsfil er netop oprettet")
Således at der ikke kommer feks 5 msgboxe man skal trykke ok til,(og i opstartfasen 100), men en samlet for alle filer der skal oprettes eller ja bliver oprettet. Feks en msgbocx med tekst a la  5 filer - xxxx.cls,xxxx.xls er netop blevet oprettet


Rem Test kolonne B for kundeNr
    For ræk = 4 To kNrRæk
        knr = Cells(ræk, 2)
        If erFilerOprettet(knr) = False Then
            opretFiler knr
            MsgBox (knr & " versionsfil er netop oprettet")
        End If
     
    Next ræk
    MsgBox ("Alle versionsfiler er oprettet") 'besked hvis alle versionsfiler er oprettet

End Sub

Private Function erFilerOprettet(knr)
Dim vs, v, v1, vc, s  'variable for versionsfiler


Rem Søg efter versions-fil
    Set vs = CreateObject("Scripting.FileSystemObject")
    Set v = vs.GetFolder(Vsti)
    Set vc = v.Files
    For Each v1 In vc
        If InStr(v1.Name, CStr(knr)) Then
                    erFilerOprettet = True
            Exit Function
        End If
       
       
       
    Next
   
    erFilerOprettet = False