Dim var As String
Dim f2 As New Form2
If f2.ShowDialog() = DialogResult.OK Then
    var = f2.form2Variable
    ' was immer noch
Else
    ' Form2 gecancelt ... 
End If
f2.Dispose()

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov