I don't see any problems with the code, getting an error? Perhaps just style preference
but I would replace
fPass = Mid(passtest, 1, 1) with fPass = Left$(passtest, 1)
and
lPass = Mid(passtest, PassLen, 1) with fPass - Right$(passtest, 1)