Mira el Vb tiene muchas funcionalidades entre ellas hay una referencia que se llama Microsoft Scripting Runtime, ya esta referencia te permite trabajar con archivos y varias cosas del windows para tu pregunta yo asumo que el archivo que quieres está en la unidad C:\
y se llama colegio.doc y pon el siguiente codigo
en un cmdgrabar o cualquier otra procedimiento
Private Sub cmdGrabar_Click()
Dim sX As Scripting.FileSystemObject
On Error GoTo xerror
Set sX = New Scripting.FileSystemObject
If sX.FileExists("c:\Colegio.doc") Then
MsgBox "El Archivo Existe"
sX.CopyFile "C:\Colegio.doc", "c:\Mis documentos\", True
Else
MsgBox "El archivo no existe"
End If
Exit Sub
xerror:
MsgBox Err.Description
End Sub