Ex. : "O bicho tá pegando."
Resultado: pegando.

var = "o bicho tá pegando."
tamanho = len(var)
'loop p/ encontrar o primeiro espaço em branco da direita p/ esq
for i = tamanho to 1 step -1
if mid$(var,i,1) = " " then exit for
next i

resposta = right$(var,tamanho-i)


é qq coisa parecida com isso, de qq forma dá uma olhada na ajuda sobre as funções Right, Mid e Left

espero ter ajudado!