Não está caindo no IF por que com toda a certeza o valor da string que está vindo não é exatamente a mesma que você está comparando.
Você já verificou qual é o valor de LANC.Value ???
Joga ela em um msgBox...
str_Lanc = LANC.Value
MSGBOX("O valor de LANC vale = " + str_Lanc )
Se estiver NULL ou qualquer outro formato você já vai saber o que fazer.
E nas comparações de IF com String vc pode usar o operador LIKE , com base em partes da frase, como por exemplo o número 4 que está no início da string.
If str_Lanc like "4*" then
Mas o principal é sabe qual é o valor de LANC.