‘For 入力文字がある場合 For intLoopCnt1 = 1 To Len(mBAT_DATA) ‘BAT文字列から1文字抽出する strBatMoji = Mid$(mBAT_DATA, intLoopCnt1, 1) ‘For チェック対象文字がある場合 For intLoopCnt2 = 1 To Len(strInData) ‘If チェック対象文字列から1文字抽出する If Mid$(mBAT_DATA, intLoopCnt2, 1) = strBatMoji Then ‘ strErrorData = strErrorData & Mid$(mBAT_DATA, intLoopCnt2, 1) End If Next intLoopCnt2 Next intLoopCnt1
‘If 入力不可文字がある場合 If strErrorData = vbNullString Then ‘入力不可文字が無いので戻り値にTrue(正常)を返す blnCheckWebBatMoji = True Else ‘入力不可文字があるので戻り値にFalse(エラー)を返す blnCheckWebBatMoji = False End If
‘関数を終了する Exit Function
Err_blnCheckWebBatMoji: ‘ランタイムエラーが発生したのでエラー処理をする Call subErrSyori("blnCheckWebBatMoji", Err.Number, Err.Description) End Function