Option Explicit
Private Sub cmdCalculate_Click()
Dim count As Integer
Dim Ergebnis As Long
Dim Loesung As String
Select Case txtOperation.Text
   Case "!"
      If IsNumeric(txtZahl.Text) Then
         Loesung = txtZahl.Text
         Ergebnis = CLng(txtZahl.Text)
         For count = CInt(txtZahl.Text) - 1 To 1 Step -1
            Loesung = Loesung & "+" & CStr(count)
            Ergebnis = Ergebnis + CLng(count)
         Next count
         txtLoesung.Text = Loesung & "=" & CStr(Ergebnis)
 
      End If
End Select
End Sub