Entering data into two text boxes using one command button

Hi

I have the following code in a workbook:

'takes data from cell A45 (Phase Instructions worksheet) and puts into textbox 
Private Sub CreateEmail_Click() 
On Error GoTo ErrHandler 
Dim strText As String 
For Each r In Sheets("Phase instructions").Range("A45").Rows 
     strText = "" 
     For Each c In r.Cells 
          strText = strText & c.Value 
     Next c 
     EmailSubject = EmailSubject & strText & vbCrLf 
Next r 
ExitPoint: 
Exit Sub 

ErrHandler: 
If Err.Number = 999 Then 
Resume Next 
Else 
MsgBox "Incorrect data for this printer, please re-enter", vbCritical, "PRINTER DATA ERROR" 
Resume ExitPoint 
End If 
End Sub

I would like for the button to fill another text box (called EmailBody) at the same time, but I don't know how to get it to fill the two boxes.

Can anyone please advise me on what I need to change in the above code to get this to work?

Thanks very much

CC