Checking duplicate Files

[musclecarlover07]

I have a button that when pressed it checks a specific file for documents with the same name (example: Test, Test 1, Test 180, ect...)

    Dim StrFile As String
    
    
    StrFile = Dir("C:\Users\John\Desktop\Test\*test*")
    Do While Len(StrFile) > 0
                Debug.Print StrFile
                MsgBox StrFile
                StrFile = Dir
    Loop

The problem with this is if there are 2 files with Test (Test, Test - Copy) It gives me 2 separate message boxes. The first with Test. Then a second message box with the second file, Test - Copy. I want to combine both of the message boxes in to one. So the message box would look like:
Test
Test - Copy

 

[CJ_London]

How about this

Dim StrFile As String
dim msgStr as string    
    
    msgStr=""
    StrFile = Dir("C:\Users\John\Desktop\Test\*test*")
    Do While Len(StrFile) > 0
                Debug.Print StrFile
                msgStr=msgStr & " | " & StrFile
                StrFile = Dir
    Loop
    if msgStr<>"" then
        MsgBox msgStr
    else
        MsgBox "No Files found"
    end if