Option Explicit
 
Dim ZW As Double, ERG As Double, Zeichen As String
 
Private Sub Command1_Click(Index As Integer)
Text1.Text = Replace(Text1.Text, ",", ".")
ZW = Val(Text1.Text)
Text1 = ""
Text1.SetFocus
Zeichen = Command1(Index).Caption
End Sub
 
Private Sub Command2_Click()
Text1.Text = Replace(Text1.Text, ",", ".")
 
If Zeichen = "+" Then
ERG = ZW + Val(Text1.Text)
ElseIf Zeichen = "-" Then
ERG = ZW - Val(Text1.Text)
ElseIf Zeichen = "*" Then
ERG = ZW * Val(Text1.Text)
ElseIf Zeichen = "/" Then
ERG = ZW / Val(Text1.Text)
End If
 
Text1.Text = CStr(ERG)
End Sub
 
Private Sub Form_Load()
Me.Show
Text1.SetFocus
End Sub