Private Sub Command1_Click()
Call Form2.FormularMitTextfieldAlsParameter(text1)
End Sub
 
Private Sub Command2_Click()
Call Form2.FormularMitTextfieldAlsParameter(text2)
End Sub
 
Public Sub FormularMitTextfieldAlsParameter(ByRef textfeld As TextBox)
me.show
msgbox(textfeld.name)
End Sub