Why not just call your saving routine?
Code:
Public Sub Command1_Click()
    Form2.Show 1
    Call MySavingfunction
    Unload Form2
End Sub