Private Function CalcContour As String
 
'Hier werden irgendwelche Berechnungen gemacht
 
txtStatus.Text = "Originaldaten löschen?"
'Erst fortfahren, wenn in einer anderen textBox etwas eingegeben wurde bzw. mit 
' Enter bestätigt wurde
 
 
'Weiter mit Berechnungen
 
End Function

--------------------

Ich habe keine besondere Begabung, sondern bin nur leidenschaftlich neugierig.
- Albert Einstein

    If MessageBox.Show("Löschen bestätigen", "Löschen?", _
      MessageBoxButtons.OKCancel, MessageBoxIcon.Question, _
      MessageBoxDefaultButton.Button2) = MsgBoxResult.Ok Then
        ' Löschen
        MsgBox("Schon weg!")
    Else
        ' Nicht löschen
        MsgBox("Ok, dann eben nicht")
    End If

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

--------------------

Ich habe keine besondere Begabung, sondern bin nur leidenschaftlich neugierig.
- Albert Einstein

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist