Copiar ficheros...

Tengo el siguiente código el cual "mueve" los ficheros copiandolos primero y luego eliminándolos, ya que no conozco ninguna función que haga esto... Si lo sabéis... Bueno mi pregunta es otra: Tengo que averiguar si el destino existe, porque si no existe debo de crearlo, y eso es lo que me funciona en parte. Si el destino no existe me lo crea perfectamente, y copia los ficheros, pero si el destino existe, también me salta el msgbox! El cual no tendría que salir..., si puedes echarle un vistazo a el código que te mando. Gracias
Private Sub boton3_Click()
Dim origen As String
Dim destino As String
Dim ventana As Integer
destino = InputBox("ruta de acceso de destino", "destino")
If Dir(destino) = "" Then
'dir devuelve el nombre de un destino o fichero, si este existe
'su valor sera vacio ("")si no existe, por lo tanto
'creamos el destino
ventana = MsgBox("No existe la carpeta destino, Crearla?", vbYesNo, "Aviso")
If ventana = vbYes Then
MkDir (destino)
End If
End If
destino = destino & "\" & destino2
For i = 0 To File1.ListCount - 1
destino2 = File1.List(i)
origen = File1.Path & "\" & File1.List(i)
FileCopy origen, destino & destino2
Kill (File1.Path & "\" & File1.List(i))
Next
End Sub