olApp = CreateObject("Outlook.Application")
        oItem = olApp.CreateItem(0)
        With oItem
            .Subject = "BS: " & TextBox2.Text & "; " & TextBox3.Text
            .To = "***************.de"
            .HTMLBody = ObererTeil & Zeile1 & Zeile2 & Zeile3 & Zeile4 & Zeile5 _
              & Zeile6 & Zeile7 & Zeile8 & UntererTeil & Bestaetigung
            .send()
        End With
        MsgBox("E-Mail wurde erfolgreich an die Finanzbuchhaltung versendet.")
        End
    End Sub