如何将VB窗体应用程序中对话框设置值传递给调用者

Public myValue As String

Private Sub btnConfirm_Click(sender As Object, e As EventArgs) Handles btnConfirm.Click
    myValue = txtValue.Text
    Me.DialogResult = DialogResult.OK
    Me.Close()
End Sub

Private Sub btnOpenDialog_Click(sender As Object, e As EventArgs) Handles btnOpenDialog.Click
    Dim dialog As New MyDialogForm()
    If dialog.ShowDialog() = DialogResult.OK Then
        Dim value As String = dialog.myValue
        ' 在这里可以使用获取到的值进行后续操作
    End If
End Sub