dim frmZweiteForm as new ZweiteForm
  frmZweiteForm.show()
 
  do
  application.doevents()
  loop until frmZweiteForm.myBoolean = true
 
strWert = frmZweiteform.meinString

Public meinString as String
Pubic myBoolean as Boolean
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        meinString = ComboBox1.SelectedItem
        MyBoolean = true
        me.close
    End Sub