I solved it.
For anyone interested:
Please excuse the way this is presented (ie. Format, it's hard to copy and paste and see result in these small Post Comments window.


Private Sub CommandButton50_Click()

Dim dMonth As Date
Dim strMonth As String
Dim strYear As String
Dim strFullDay As String
Dim oCtrl As ContentControl

For Each oCtrl In ActiveDocument.ContentControls

    If oCtrl.Tag = "MeetingDay" Then

          If oCtrl.ShowingPlaceholderText = True Then

          MsgBox "You didn't select a date"
          oCtrl.Range.Select

    Else

dMonth = CDate((ActiveDocument.SelectContentControlsByTag("MeetingDay").Item(1).Range.Text)


      strMonth = Format(dMonth, "MMMM")

      strYear = Format(dMonth, "yyyy")

      strFullDay = Format(dMonth, "DD-MMMM-YYYY")

MsgBox "These Minutes will be saved to: " & "C:\User\Rick\Meetings\" & strYear & "\" & strMonth & "\Meeting Minutes " & strFullDay & ".doc"

ActiveDocument.SaveAs FileName:="C:\User\Rick\Meetings\" & strYear & "\" & strMonth & "\Meeting Minutes " & strFullDay & ".doc"
         End If
Exit For
    End If
Next oCtrl
End Sub