Traitement de chaine

Salut,

voila en fait j'utilise un Richt TextBox  pour editer du texte (couleur, taille, gras, osulignement..)
et de la je le convertis au format html a l'aide d'une fonction trouvee sur le site
jusque la otut va bien le seul probleme c'est que je dois pouvoir incerer des liens
donc j'ai pense qu'il serait plus simple de traiter la chaine apres la conversion
en remplacant les 

   "http://..."         par des       <a ref="http://...">http://...</a>
mais comment traiter tout le texte et connaitre  la longueur du lien ...

merci d'avance pour votre aide @+

Inspire toi de ceci.

Dim p_deb As Integer       'position debut lien
Dim p_fin As Integer       'position fin lien
Dim longueur As Integer     ' longueur de l'hyperlien

p_deb = 1
            'Tant qu'il trouve http dans le texte
p_deb = InStr(p_deb, Text1.Text, "http://") ' début hyperlien

While p_deb > 0
    p_fin = InStr(p_deb, Text1.Text, " ")   ' fin hyperlien
    longueur = p_fin - p_deb                ' longueur hyperlien

    MsgBox (Mid(Text1.Text, p_deb, longueur)) ' affichge
                    ' réinitialise la valeur pour le début de lien
    p_deb = p_fin
                    ' trouve la position de débu su suivant
    p_deb = InStr(p_deb, Text1.Text, "http://")
Wend


dpouliot