Dim txtfolder As New System.Windows.Forms.TextBox With {.Text = "MyPicture"}
Dim txtfile_first As New System.Windows.Forms.TextBox With {.Text = "xx"}
Dim txtfile_second As New System.Windows.Forms.TextBox With {.Text = "xxx"}
 
Dim lst As List(Of String) = _
     My.Computer.FileSystem.GetFiles(txtfolder.Text, _
     FileIO.SearchOption.SearchTopLevelOnly, _
     txtfile_first.Text & "_" & txtfile_second.Text & "?????.jpg").ToList
 
For Each file As String In lst
    My.Computer.FileSystem.CopyFile(file, .....)
Next file