Private TRechner As CRechner
 
Set TRechner = New CRechner
 
For z = 10 To 13
TRechner.rechnen = z
Me.cmd_roperationen(z)??was muss hier hin??  = TRechner.rechnen
Next

Public Property Get rechnen() As Variant
rechnen = rechenweg
End Property
 
Public Property Let rechnen(ByVal rechentyp As Variant)
Select Case rechentyp
Case "0": rechenweg = Wert1 = txt_display.Text
                      RechenArt = "multiplizieren"
                      txt_display.Text = ""
Case "1": rechenweg = Wert1 = txt_display.Text
                      RechenArt = "dividieren"
                      txt_display.Text = ""
Case "2": rechenweg = Wert1 = txt_display.Text
                      RechenArt = "addieren"
                      txt_display.Text = ""
Case "3": rechenweg = Wert1 = txt_display.Text
                      RechenArt = "substrahieren"
                      txt_display.Text = ""
End Select
End Property