X in gefundene Zelle schreiben

Private Sub CommandButton1_Click()
Dim C As Range
Dim rngBereich As Range
Dim i As Integer
With Worksheets("Erfassung")
Set rngBereich = .Range("B10:B9999")
Set C = rngBereich.Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not C Is Nothing Then
If .Cells(C.Row, "G").Value = "" Then          'Hier hätt ich gern wenn in "G" ein  _
X dann "Packauftrag wurde schon rückgemeldet
? 'Hier hätt ich gern wenn in "H" ein X dann "Packauftrag wurde schon rückgemeldet
.Cells(C.Row, "G").Value = TextBox2.Value  'Ankreuzen mit X
.Cells(C.Row, "H").Value = TextBox3.Value  'Ankreuzen mit X
MsgBox "Packauftrag wurde Ausgebucht"
For i = 1 To 2
Controls("Textbox" & i).Value = ""
Next
Else
MsgBox "Packauftrag wurde schon Rückgemeldet"
End If
Else
MsgBox "Packauftrag nicht gefunden"
End If
End With
Unload Me
End Sub