Private Sub Command1_Click() MsgBox Form2.DisplayModal("This is a test") End SubOn the second form, add a text box and a command button and paste this code:
Private mstrValue As String Private Sub Command1_Click() mstrValue = Text1.Text Unload Me End Sub Public Function DisplayModal(ByVal pstrParamIn As String) As String Text1.Text = pstrParamIn Me.Show vbModal DisplayModal = mstrValue End Function