Set sr = getobject("winmgmts:\\.\root\default:Systemrestore")

msg = "ساختيم تموم شد. برو حالشو ببر" & vbCR
msg = msg  & Date & " " & Time


If (sr.createrestorepoint("Automatic Restore Point", 0, 100)) = 0 Then
    MsgBox msg
Else
    MsgBox "دکي... نشد که درست کنيم...شرمنده!!"
End If