How to insert a checkmark with vba

[Pookiemeister]

I have a pass or fail option buttons. if the user selects "pass" option button a green check mark appears on the designated cell on the spreadsheet. The problem is I can't find a check mark in ascii only in Unicode. So I guess my question is how can I display a check mark and turn it green using colorindex?
Thanks

 

[Pookiemeister]

Here is my code. Hope you can figure it out and thanks again.

Private Sub CmdOK_Click()

'Determine emptyRow
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

'Export Data to worksheet
Cells(emptyRow, 1).Value = LblDateCodeInput
Cells(emptyRow, 2).Value = TxtBxMtLtNum.Value
Cells(emptyRow, 3).Value = CmbTieSize.Column(0)
Cells(emptyRow, 4).Value = LblTieColorDisplay
Cells(emptyRow, 5).Value = TxtWeight.Value
Cells(emptyRow, 6).Value = TxtLength.Value
If OptionButton1 = True Then
Cells(emptyRow, 7).Value = ChrW(&H2713)
' Cells(2, 7).Font.Color = vbGreen
Else
Cells(emptyRow, 7).Value = "X"
End If

Cells(emptyRow, 8).Value = TxtTrvl.Value & Chr(34)
If OptionButton5 = True Then
Cells(emptyRow, 9).Value = ChrW(&H2713)
' Cells(2, 7).Font.Color = vbGreen
Else
Cells(emptyRow, 9).Value = "X"
End If
If OptionButton5 = True Then
Cells(emptyRow, 10).Value = ChrW(&H2713)
' Cells(2, 7).Font.Color = vbGreen
Else
Cells(emptyRow, 10).Value = "X"
End If
Cells(emptyRow, 11).Value = TextBox4.Value

End Sub