@Andre's method will work, but if you can't implement it for some reason, use StrComp:
StrComp
If StrComp(rs!OriginalLetter.Value, originalChar, vbBinaryCompare) = 0 Then