Public WithEvents Bt As Shape
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles _
      Button3.Click
        Dim wks_Bauplan As Excel.Worksheet = _
        Globals.ThisWorkbook.Application.Worksheets("Tabelle1")
 
        Dim br&, hö&, li&, ob&
 
        ob = 25
        hö = 16
        br = 70
        li = 100
 
        bt = wks_Bauplan.Shapes.AddShape( _
          Microsoft.Office.Core.MsoAutoShapeType.msoShapeRoundedRectangle, li,
        ob, br, hö)
        With bt.Fill
            .Visible = True
            .ForeColor.RGB = RGB(255, 125, 97)
            .ForeColor.TintAndShade = 0
            .ForeColor.Brightness = -0.25
            .Transparency = 0
            .Solid()
        End With
        bt.TextFrame2.TextRange.Characters.Text =
        "Gewerk Zugeteilt"
        With bt.TextFrame2.TextRange.Characters(1, 16).
             ParagraphFormat
            .FirstLineIndent = 0
            .Alignment = _
              Microsoft.Office.Core.MsoParagraphAlignment.msoAlignLeft
        End With
        With bt.TextFrame2.TextRange.Characters(1, 16).Font
            .NameComplexScript = "+mn-cs"
            .NameFarEast = "+mn-ea"
            .Fill.Visible = Microsoft.Office.Core.MsoTriState.msoTrue
            .Fill.ForeColor.RGB = RGB(255, 255, 0)
            .Fill.Transparency = 0
            .Fill.Solid()
            .Size = 7
            .Name = "Shape(1)"
        End With
        Bt.OnAction = Bt_Click()
 
    End Sub

Private Sub Bt_Click(sender As Shape, e As EventArgs)