Formatting a Date String

[Ark68]

How would I get this result in my cell using vba:

July 11, 2020 Saturday [44023]

I have this, but it's not dropping the '[44023]' portion, which is the serial of that date.

.Cells(trow, 4) = Format(inq_date, "mmmm dd, yyyy   dddd     [#####]")

 

[HappierThan]

Try removing the square brackets and hash signs. It appears to be doing exactly as shown.

 

[Ark68]

Sorry, I just reread my question. I do want the [44023] included in the string.
That being said, removing the contents as suggested HappierThan won't provide the desired result. I do appreciate the effort.

 

[Ark68]

.Cells(trow, 9) = Format(inq_date, "dddd dd mmm, yyyy") & "   [" & inq_date & "]"

Thank you.