Dim Speicher As Double
 
Private Sub Form_Load()
Label1.Caption = ""
Speicher = "0"
End Sub
 
Private Sub Command1_Click()
    Label1.Caption = Label1.Caption & "1"
End Sub
 
Private Sub Command2_Click()
    Label1.Caption = Label1.Caption & "2"
End Sub
 
Private Sub Command3_Click()
    Label1.Caption = Label1.Caption & "3"
End Sub
 
Private Sub Command4_Click()
    Label1.Caption = Label1.Caption & "4"
End Sub
 
Private Sub Command5_Click()
    Label1.Caption = Label1.Caption & "5"
End Sub
 
Private Sub Command6_Click()
    Label1.Caption = Label1.Caption & "6"
End Sub
 
Private Sub Command7_Click()
    Label1.Caption = Label1.Caption & "7"
End Sub
 
Private Sub Command8_Click()
    Label1.Caption = Label1.Caption & "8"
End Sub
 
Private Sub Command9_Click()
    Label1.Caption = Label1.Caption & "9"
End Sub
 
Private Sub Command10_Click()
    Label1.Caption = Label1.Caption & "0"
End Sub
 
Private Sub Command11_Click()
    Speicher = CDbl(Speicher) + CDbl(Label1.Caption)
    Label1.Caption = ""
End Sub
 
Private Sub Command12_Click()
    Label1.Caption = CDbl(Label1.Caption) + CDbl(Speicher)
    Speicher = "0"
End Sub