外字の有無をチェックするユーザー定義関数

Function is_gaiji(text As String) As Boolean
    '外字を含む文字列の場合、TRUEを返す。
    'シフトJISの場合、0xF000-0xFFFCが外字の領域。
    'シフトJISのコードとVBAのAscが返すコードの差は0x10000。
    Dim asc_start As Long
    Dim asc_end As Long
    Dim len_text As Long
    Dim i As Long
    Dim t As String
    Dim a As Long
   
    asc_start = CLng("&hF000") - CLng("&h10000")
    asc_end = CLng("&hFFFC") - CLng("&h10000")
   
    len_text = Len(text)
   
    is_gaiji = False
    For i = 1 To len_text
        t = Mid(text, i, 1)
        a = Asc(t)
        If asc_start <= a And a <= asc_end Then
            is_gaiji = True
        End If
    Next i
End Function