Code:
Public Sub Command1_Click()
If IsNumeric(Text1(0).Text And Text1(1).Text And Text1(2).Text And Text2.Text) Then
z1 = CDbl(Text1(0).Text)
z2 = CDbl(Text2.Text)
n1 = CDbl(Text1(1).Text)
n2 = CDbl(Text1(2).Text)
Else
MsgBox ("Mindestens ein Textfenster ist leer oder enthält ungültige Zeichen")
End If
If (n1 = 0 Or n2 = 0) Then
MsgBox ("Der Nenner eines Bruches kann nicht 0 betragen")
GoTo error:
Else
GoTo weiter:
End If
weiter: Text3.Text = z1 * n2 + z2 * n1
Text4.Text = n1 * n2
Exit Sub
error: Text3.Text = ""
Text4.Text = ""
Vielen Dank im Vorraus,
Sean