> If c.Value <> Empty Then
> blnFlag = True
> End If

どうでもいいけど、ここをEmpty で判定すると
数値型で 0 が入力されてても空と見なされるね
0も空と見なすなら別にいいけど・・・