Sub GrosserProzess()
        for i as long =0 to .......'mehrere Millionen mit ges. Dauer > 1min
            If i Mod 5000 = 0 Then Application.DoEvents()
            'Prozedur 
        Next
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim datei_open As String
        OFD.Title = "Datei Öffnen"
        OFD.Filter = "Datei (*.dat)|*.dat|Alle Dateien (*.*)|*.*"
        'Hier stoppt (logischerweise) die Ausführung von "Sub GrosserProzess"  
        OFD.ShowDialog()
        Application.DoEvents()
        'Hier gehts weiter mit "Sub GrosserProzess"
        datei_open = OFD.FileName()
        '... weitere Bearbeitung .... relativ schnell < 2s
    End Sub