Global a As String
'user Form 1 code
Private Sub CommandButton1_Click()
a = "good"
MsgBox a
End Sub
Private Sub CommandButton2_Click()
MsgBox a
End Sub
Private Sub CommandButton3_Click()
UserForm2.Show
End Sub
'user Form 2 code
Private Sub CommandButton1_Click()
a = "look"
MsgBox a
End Sub
Private Sub CommandButton2_Click()
MsgBox a
End Sub
