サンプルマクロは、Ａ１セルの値に濁音あるいは半濁音が含まれている
かどうかを判定します。

Sub Sample()

    Dim myStr As String
    
    'Excel2000
    myStr = Range("A1").Phonetic.Text
    'Excel97
    'myStr = Range("A1").Phonetic.Text
    'If myStr = vbNullString Then myStr = Range("A1").Value
    'Excel95
    'myStr = Range("A1").Value    

    If Len(StrConv(myStr, vbKatakana)) _
        < Len(StrConv(myStr, vbKatakana + vbNarrow)) Then
        MsgBox "濁音または半濁音が含まれています。"
    End If

End Sub