Buenas,
El problema es que el método File.Copy esperá recibir la ruta de un archivo origen y la ruta de un archivo destino (no de un directorio).
La solución es la siguiente:
Código vb:
Ver originalIf Directory.Exists(RutaDestinoRecibo) Then
Dim DlgAbrir As New OpenFileDialog()
DlgAbrir.Multiselect = True
If (DlgAbrir.ShowDialog() = Windows.Forms.DialogResult.OK) Then
For Each rutaorigen In DlgAbrir.FileNames
System.IO.File.Copy(rutaorigen, System.IO.Path.Combine( RutaDestinoRecibo,System.IO.Path.GetFileName(rutaorigen)), True)
Next
End If
End If