Public Class frmFormA
 
   Private WithEvents evtClickEvent As frmFormB
 
...
 
   Private Sub Suchbegriff_Click() Handles evtClickEvent.SuchenTxtClick
        MsgBox("Ok.")
    End Sub

 
 
Public Class frmFormB
 
    Public Suchbegriff As String
    Public Event SuchenTxtClick()
 
    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnOK.Click
        Suchbegriff = Me.txtSuchbegriff.Text
        RaiseEvent SuchenTxtClick()
    End Sub