Public Event Weiter(ByVal sender As Object, ByVal e As String)
 
 
Private Sub Command1_Click()
    RaiseEvent Weiter(Me, "Nachricht von Form2")
End Sub

Private WithEvents frm2 As Form2 'Instanz von Form2 deklarieren
 
 
Private Sub Form_Load()
    Set frm2 = New Form2 'Erstellen von frm2
    Text1.Text = "DAS IST DER ZU LÖSCHENDE TEXT"
End Sub
 
 
Private Sub Command1_Click()
     frm2.Show 'Anzeigen von frm2
End Sub
 
 
Private Sub frm2_Weiter(ByVal sender As Object, ByVal e As String)
    'Hier kommt das durch den Click in frm2 ausgelöste Ereignis an.
    Text1.Text = e 'Änderung von Text1 durch Event-Parameter
End Sub