On Error GoTo fehler                                                                  
  Zahl = txtZahl.Text                                                                   
  If Zahl <> 0 Then                                                                     
    Zahl = Zahl                                                                         
    txtZahl.Text = ""                                                                   
    Ergebnis = Val(Zahl) * 1 + Val(Zahl) * 1                                            
  End If
  Exit Sub                                                                              
fehler:
     If MsgBox("So kann das Programm nicht rechnen", vbOKOnly, "Fehler") = vbOK _
       Then    
       frmTaschenrechner.Show                                                           
     End If