機種依存文字チェック

Public Function Chk_機種依存(strTarget As String) As String

Dim strReturn As String 'エラー文字の蓄積用
Dim intStrLen As Integer 'strTargetの文字長
Dim intChar As Integer   '判定用の文字コード
Dim i As Integer 'counter
intStrLen = Len(strTarget) '引数の文字長GET
strReturn = vbNullString 'エラー文字をリセット
For i = 1 To intStrLen '1文字ずつチェックを行う
    intChar = Asc(Mid(strTarget, i, 1)) 'i文字目から順に
'機種依存判定を変える際はここをメンテする
      If (intChar <= -30823 And intChar >= -30912) _
        Or (intChar <= -1540 And intChar >= -4032) _
        Or (intChar <= -949 And intChar >= -1472) _
        Or intChar = -32322 Or intChar = -32321 _
        Or intChar = -32282 Or intChar = 60 Or intChar = 62 _
        Or (intChar <= 223 And intChar >= 161) Then
        strReturn = strReturn & Chr(intChar) '機種依存の場合はエラー文字を蓄積
      ElseIf intChar = 9 Then strReturn = strReturn & "[tab]"
      End If
Next i
If strReturn <> vbNullString Then strReturn = "【機種依存文字】以下の文字が使われています。修正して下さい。" & vbCrLf & strReturn
Chk_機種依存 = strReturn