Dim strGleichung As String
strGleichung = ""
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 !!!
              strGleichung = strGleichung & " + " & Format(fx.a(0)) & " *" & _
                "sin(" & Format(fx.b(0)) & ")"
Next
' Hier soll die Messagebox dann die Gleichung ausgeben.
strGleichung = Mid(strGleichung, 4) ' um das " + " ganz am Anfang wieder zu _
  entfernen
MsgBox strGleichung