仕事でAccessVBAを使っていて１点ハマったことがあった。CSVファイルのカンマ区切りの指定したカラムの文字列を取り出す、という私ではない誰かが作った関数に欠陥があるので、その調査をしていた。
'※記述は変えてあります Public Function mid_between_comma(strin As String, strout As String, J As Integer) As Integer Dim i As Integer, AAA As Integer, cnt As Integer Dim cnt_X(2) As Integer, cnt_A(2) As Integer Dim strtemp As String cnt = 0 For i = 1 To Len(strin) strtemp = Mid(strin, i, 1) If strtemp = "," Then cnt = cnt + 1 If cnt = J Then cnt_X(1) = cnt cnt_A(1) = i End If If cnt = J + 1 Then cnt_X(2) = cnt cnt_A(2) = i End If End If Next '以下略
これだけ見ると動作しそうだ。しかし、次のような行を読ませるとまともに動作しない(内容は変えてあります)。
5,55,5555,55,5555,5555,5555555555,5555,555555,"ジョセフ・ジョースター，きさま！，見ているなッ！",55,555,5,5555,5,5,5555,5,5,5,5,5,5,5,"５，５５，５５，５５５５
『,"ジョセフ・ジョースター，きさま！，見ているなッ！"』このカラムを丸ごと取り出したいのに、全角カンマが何故かセパレーターと認識され、例えば『"ジョセフ・ジョースター』だけが取り出されてしまう。理由がわからないので上記のコードをデバッグしていた。すると
If strtemp = "," Then
なんとここ、strtempに全角カンマが入っていても、Trueとなった！！あほか！！！！
カンマだけなのか？とデバッガ上で次のように試してみた。
"S" = "Ｓ" 'True "0" = "０" 'True "a" = "A" 'True "0Ｂ1" = "０b1" 'True
おいマジかよ！アンビリーバボー！ありがた迷惑！
というわけで、VBAを扱う方は注意！彼のイコール演算子は、全角半角、大文字小文字を区別してくれない。丹精込めて作成したコードが思わぬ誤動作をしているならば、このクソみたいな仕様が原因かもしれない。。なお、VB.NETでは、上記の比較は全てFalseになる。それがまともな判断だと思う。
それでもExcelやAccessで前時代的なVBAを使わなければいけない貴方は次のメソッドを使いましょう。
StrComp(",", "，", vbBinaryCompare) 'False
