Dim myForm2 as New Form2
 
Private Sub Form1_Load(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles MyBase.Load
 
   myForm2.ShowDialog()
   'Hier steht die Eingabe in der Textbox aus myForm2
   Dim str As String = R_Strasse
 
End Sub

Public Class Form2
 
    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
        R_Strasse = TextBox1.Text 'Zuweisung auf globale Variable
        Me.Hide()
    End Sub
End Class