In future, post what you tried rather than saying you couldn't get something to work. I don't use macros, embedded or otherwise, so for button click event & OpenArgs method:
Code:
Private Sub Command2_Click()
DoCmd.OpenForm "Form2", , , , , , Me.Text0
End Sub
form2 Load Event
Code:
Private Sub Form_Load()
If Not IsNull(Me.OpenArgs) Then Me.txtSubject = Me.OpenArgs
End Sub
EDIT - I would probably change to the following (or something similar in order to deal with situation when form is on a new record)
Code:
Private Sub Command2_Click()
If Me.NewRecord Then
Exit Sub '<<< or open without using OpenArgs?
Else
DoCmd.OpenForm "Form2", , , , , , Me.Text0
End If
End Sub