【VBA】半角ｶﾅを判定する

Not (Mid(strInput, i, 1) Like "[ｦ-ﾟ]" Or strInput = "-")で不要な文字種を除外。
※"[ｦ-ﾟ]“と”-“を指定するとカタカナひらがなの必要そうな文字列を抽出できる。
”-“を半角ｶﾅに含みたくない場合はstrInput = "-"を外す。
その後StrConvで一度文字列を半角ｶﾅに変換してからStrCompのバイナリモードで比較することで、
半角ｶﾅの判定ができる。

'/**
' * isHankakuKana
' * 入力文字列が半角カナかを調べる
' * @param strInput   調べる文字列
' * @return True:半角カナ False:半角カナではない
' */
Public Function isHankakuKana(ByVal strInput As String) As Boolean
    
    Dim i As Long
    
    '空文字の場合は判定前にFalse
    If strInput = "" Then
        isHankakuKana = False
        Exit Function
    End If
    
    '記号や数字、アルファベット等の場合はFalse
    For i = 1 To Len(strInput)
        If Not (Mid(strInput, i, 1) Like "[ｦ-ﾟ]" Or strInput = "-") Then
            isHankakuKana = False
            Exit Function
        End If
    Next i
    
    '文字を半角ｶﾅに変換し、不整合ならFalse
    Dim hankakuKana As String
    hankakuKana = StrConv(strInput, vbKatakana + vbNarrow)
    isHankakuKana = StrComp(hankakuKana, strInput, vbBinaryCompare) = 0
End Function

Sub test()
    Debug.Print isHankakuKana("ｱｲｳｴｵ")
    Debug.Print isHankakuKana("ﾊﾞﾋﾞﾌﾞﾍﾞﾎﾞ")
    Debug.Print isHankakuKana("ﾊﾟﾋﾟﾌﾟﾍﾟﾎﾟ")
    Debug.Print isHankakuKana("ﾞ")
    Debug.Print isHankakuKana("ﾟ")
    Debug.Print isHankakuKana("-")
    Debug.Print isHankakuKana("アイウエオ")
    Debug.Print isHankakuKana("あいうえお")
    Debug.Print isHankakuKana("abcdefg")
    Debug.Print isHankakuKana("ＡＢＣＤ")
    Debug.Print isHankakuKana("123456")
    Debug.Print isHankakuKana("｡ﾞ")
    Debug.Print isHankakuKana("")
End Sub