Add shape only if shape doesn't already exist

[gtbreps_2]

I solved my own issue. I simply added an extra user input box and rearranged a few actions. Used a yes/no box 'Message1' to give myself space 'rows("12:22").insert' because if I re-run the entire code, information gets replaced in those cells even if there's already a text box. Message2 is another yes/no box to ask if I'm creating a new text box or if the text box already exists. If I pick yes, it creates a new box, if no it doesn't insert a new box ... aka there's already a box there.

Dim Message1, Message2 As Integer
Dim messagebx As Shape
'User input to ask if there is or will be a text box to insert cells where text box will be located
Message1 = MsgBox("Is there going to be or is there already a message to the client?", vbYesNo + vbQuestion, "Message")
 If Message1 = vbYes Then
 rows("12:22").insert
'User input to ask if the text box is a new box or if there is already a box
  Message2 = MsgBox("Would you like to add the message to the client now? If you've already written the message, pick NO!", vbYesNo + vbQuestion, "Message")
If Message2 = vbYes Then
    Set messagebx = Shapes.AddTextbox(msoTextOrientationHorizontal, 22, 165, 473, 185)
     With messagebx
      .TextFrame.Characters.Text = "[Insert Message] *If new text box is inserted by accident, select box and delete."
      .TextFrame.Characters.Font.Size = 9
      .TextFrame.Characters.Font.Name = "Arial"
      .Line.Visible = msoFalse
      .Placement = xlFreeFloating
     End With
    Else
    'do nothing
   End If
Else
  'do nothing
    End If