呼び出し元

str = "あい☆うえ☆お"
target = "☆"
cnt= getCntStr(str, target)    '特殊文字の数をカウントする

呼び出し先

'文字列内の文字をカウントする
Public Function getCntStr(ByVal str As String, ByVal target As String) As Integer
    Dim i As Long
    Dim cnt As Long
    For i = 1 To Len(str)
        If Mid(str, i, 1) = target Then cnt = cnt + 1
    Next i
    MsgBox cnt & "個あります"
    getCntStr = cnt
End Function

結果

「2個あります」と表示されます。