<code>Private Sub Beginnen_Click() 
  If AnzahlE.Text = "" Then 
    MsgBox "Sie haben keine Anzahl angegeben!!!" 
    AnzahlE.SetFocus ------- zurück zur Eingabe bzw. neu starten ------ 
    Exit Sub
  Else 
    I = AnzahlE.Text 
  End If 
 
  If EinkommenE.Text = "" Then 
    MsgBox "Sie haben kein Einkommen angegeben!!!" 
    EinkommenE.SetFocus ------- zurück zur Eingabe bzw. neu starten ------ 
    Exit Sub
  Else 
    GGehalt = EinkommenE.Text * 1000 
  End If 
 
  -------- Anweisungen folgen ------------ </code>