For i = 0 To ((AnzahlFkt) - 1)   ' ..der benutzer gibt anzahl der gleichung 
' ein.. und die schleife wird demgemäß wiederholt,klappt auch alles
   n = n + 1
    EingabeA(n) = InputBox("Bitte gebe die Koeffizienten a ein:", "Koeffzient" & _
      "a")
        fx.a = Array(EingabeA(n))
 
            EingabeB(n) = InputBox("Bitte gebe die Koeffizienten b ein:", _
              "Koeffzient b")
                fx.b = Array(EingabeB(n))
 
 
              sinusfkt = (fx.a(0) * Sin(fx.b(0))) + sinusfkt ' Zur Berechnung 
              ' von der ganzen Sinusfunktion..das klappt auch alles !!!
Next
' Hier soll die Messagebox dann die Gleichung ausgeben.