Tente declarar um tipo para estas variaveis de
Private Function AuxShr(Numero, BShr) faça
Private Function AuxShr(Numero as integer, BShr as long) AS Single
se a função estiver num módulo e é chamada de vários pontos do programa substitua
private por public