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