How do I count the number of instances of a text string in the active
row (i.e. the row where I have clicked on a cell) to be able to branch
to a particular VBA routine?

I tried the following code, but it doesn't work properly.

What I need the VBA code to do is: If the number of times the
character "-" appears in the current row is greater than 7, then...

HERE'S WHAT I WROTE SO FAR:

Sub ChooseForm()
    If Application.CountIf(Cells(Selection.Row, "-")) > 7 Then
        CodeA
    Else
        CodeB
    End If
End Sub