How to copy multiple text files but keeping origional name

[spikee]

i made an application that searches for an text file and copy it to
c:\test\. But when is find multiple files i cant copy it because it will overwrite the file in c:\test\ *.txt.
Is there a way i can copy a file and Keep the origional file name?
i have been looking hours for this...

Public Class Form1

    Dim naar As String = "c:\test\"

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each foundFile As String In My.Computer.FileSystem.GetFiles( _
            My.Computer.FileSystem.SpecialDirectories.Desktop, _
            FileIO.SearchOption.SearchAllSubDirectories, "*test*.txt", "*test2*.txt")
            System.IO.File.Move(foundFile, naar)
            ListBox1.Items.Add(foundFile)



        Next
    End Sub
End Class