El problema es que soy algo novato en esto
Siguiendo tu sugerencia saque esto:
Dim NumMayor
Dim cadenamayor
NumMayor = Len(webbrowser1.Document.All.tags("div").Item(i).innerText)
For i = 0 To webbrowser1.Document.All.tags("div").Length - 1
If NumMayor < Len(webbrowser1.Document.All.tags("div").Item(i).innerText) Then
NumMayor = Len(webbrowser1.Document.All.tags("div").Item(i).innerText)
cadenamayor = webbrowser1.Document.All.tags("div").Item(i).innerText
End If
Next
Me da la cadena mas grande.. quisiera también sacar la 2da y 3era cadena mas grande.. alguna sugerencia?