Se interessa a qualcuno ho risolto..

myURL = "http://www.miosito.it/fileditesto.txt"

Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
XMLHTTP.Open "GET", myURL, False
XMLHTTP.send dapage
dapage = XMLHTTP.responseText
Set XMLHTTP = Nothing

miaVar = Split(dapage, ";", -1, 0)

testo.Value = miaVar(0)

CIAOOOOOOOOOOO