Public sCaption As String

Private Sub Command1_Click()
    Command1.Caption = "Hello World"
End Sub

Private Sub Command2_Click()
    Command1.Caption = sCaption
End Sub

Private Sub Form1_Load()
    sCaption = Command1.Caption
End Sub