se que el code es este: WebBrowser1.Document.links.Item(i).Title

pero como se aplica :s?

text1.text = WebBrowser1.Document.links.Item(i).Title

de esta forma no me funciona

Levanta el codigo fuente y busca las siguientes etiquetas <title> aqui iria el titulo </title>
con INSTR puedes obtener la cantidad de caracteres que existe hasta la primer etiqueta y luego buscas la segunda, luego con MID puedes limpiar lo que existe entre ambas etiquetas que seria el titulo.

Busca info que son funciones muy sencillitas

Slds.