Dim lbl As New Label 'nur Demo, eigentlich im Designer zu erstellen
 
    Using mysubform As New SubForm
       With mysubform
          If .ShowDialog(Me) = Windows.Forms.DialogResult.Cancel Then Exit Sub
          lbl.Text = .ReturnValue
       End With
    End Using

Public Class SubForm
 
    'Code ersetzt den Designer, Demo 
    Dim WithEvents OK_Button As New Button With _
        {.Parent = Me, .Text = "OK", .Top = 5, _
         .DialogResult = Windows.Forms.DialogResult.OK}
    Dim WithEvents Cancel_Button As New Button With _
        {.Parent = Me, .Text = "Abbruch", .Top = 50, _
         .DialogResult = Windows.Forms.DialogResult.Cancel}
 
    Dim _returnvalue As String = String.Empty 'Membervariable, initialisiert
 
    Public ReadOnly Property ReturnValue As String
        Get
            Return _returnvalue
        End Get
    End Property
 
    Private Sub OK_Button_Click(sender As Object, _
            e As System.EventArgs) Handles OK_Button.Click
        _returnvalue = "Das ist der Rückgabetext"
    End Sub
 
End Class