The link I gave for you to examine is easily translated to VB.NET:
Public Shared Sub listener_Created(sender As Object, e As FileSystemEventArgs)
Console.WriteLine("File Created:" & vbLf + "ChangeType: " + e.ChangeType + vbLf & "Name: " + e.Name + vbLf & "FullPath: " + e.FullPath)
Try
File.Copy(e.FullPath, "D:\levani\FolderListenerTest\CopiedFilesFolder\" + e.Name)
Catch
_waitingForClose.Add(e.FullPath)
End Try
Console.Read()
End Sub
Public Shared Sub listener_Changed(sender As Object, e As FileSystemEventArgs)
If _waitingForClose.Contains(e.FullPath) Then
Try
File.Copy(...)
_waitingForClose.Remove(e.FullPath)
Catch
End Try
End If
End Sub