[Resolvido] espaços em url amigável com asp

Fala pessoal é o seguinte:

Fiz uma url amigável com isapi que está imprimindo assim: " http://www.gabarite.com.br/video/44-legislacao-especifica-seap-rj- ", com esse hífen no final.

Estou usando esta função para formatar a url:

Function FormataUrl(ByVal Texto)
FormataUrl = Replace(Replace(LCase(Texto), " ", " "), "\'", "")
FormataUrl = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(FormataUrl, " ", "-"), "á", "a"), "é", "e"), "í", "i"), "ó", "o"), "ú", "u"), "ã", "a"), "â", "a"), "à", "a"), "ê", "e"), "ô", "o"), "ç", "c"), "/", ""), "'", ""), """", ""), "[", ""), "]", ""), "&", "-"), "#", ""), "+", ""), "{", ""), "}", ""), "ù", "u"), "ò", "o"), ".", ""), "?", ""), "!", ""), ":", ""), "´", ""), "`", ""), "õ", "o"), "\", "")
FormataUrl = Replace(Replace(Replace(FormataUrl, "û", "u"), "¢", "c"), "¡", "i")
FormataUrl = Replace(Replace(Replace(FormataUrl, "£", "e"), "¤", ""), "¥", "y")
FormataUrl = Replace(Replace(Replace(FormataUrl, "¦", ""), "ª", "a"), "æ", "ae")
FormataUrl = Replace(Replace(Replace(Replace(FormataUrl, "ë", "e"), "ì", "ì"), "ð", "o"), "Ä", "a")
FormataUrl = Replace(Replace(Replace(Replace(FormataUrl, "ñ", "n"), "ø", "o"), "ý", "y"), " ", " ")
FormataUrl = Replace(Replace(Replace(Replace(FormataUrl, "þ", "p"), "€", "e"), "ÿ", "y"), "²", "z")
FormataUrl = Replace(FormataUrl, "%", "")
FormataUrl = Replace(FormataUrl, "---", "-")
End Function

Este espaço acontece porque quando o usuário vai criar um texto no formulário ele sem querer adiciona espaço no fim do texto, ai a função vai trocando o "" por "-", e se tiver um espaço no fim da url ele troca por "-".

Alguém sabe como retirar este espaço/hífen no fim da url(string).