Need to search cell for text string and paste text in based on finding

Like this:

Private Sub CommandButton18_Click()
If InStr(1, ActiveCell, "/") Then
 ActiveCell.FormulaR1C1 = ActiveCell.Value & "k"
Else
 ActiveCell.FormulaR1C1 = ActiveCell.Value & "j"
 End If: End Sub