Issue with VBA to show the first date of each quarter

Question

I have a code that should return the message "Start of quarter" on the first date of each quarter. The current problem is that I get the error: expected end of statement when I use this line Worksheets("Sample").Range("C2").Value = "=TEXT(A2, "d")"of code. Is it a syntax mistake?

Dim cb As String
Dim qrt As String
Dim dt As String

Worksheets("Sample").Range("A2").Value = "=TODAY()"
Worksheets("Sample").Range("B2").Value = "=ROUNDUP(MONTH(A2)/3,0)"
Worksheets("Sample").Range("C2").Value = "=TEXT(A2, "d")" 'Here is the error

cb = Worksheets("Sample").Range("A2").Value
qrt = Worksheets("Sample").Range("B2").Value
dt = Worksheets("Sample").Range("C2").Value

If qrt = 1 And dt = 1 Then
 MsgBox "Start of quarter"
 ElseIf qrt = 2 And dt = 1 Then
 MsgBox "Start of quarter"
 ElseIf qrt = 3 And dt = 1 Then
 MsgBox "Start of quarter"
 ElseIf qrt = 4 And dt = 1 Then
 MsgBox "Start of quarter"
End If

Worksheets("Sample").Range("A2").Clear
Worksheets("Sample").Range("B2").Clear
Worksheets("Sample").Range("C2").Clear

End sub