I've made a solution myself ... But without looping.
Private Function GetHTML() Dim objXMLHTTP,HTML Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP") Set objRS = CreateObject("ADODB.Recordset") objXMLHTTP.Open "GET", "C:\Programmer\MyPhoneExplorer\Debug.txt", False objXMLHTTP.Send HTML = objXMLHTTP.responseBody objRS.Fields.Append "txt", 200, 45000, &H00000080 objRS.Open objRS.AddNew objRS.Fields("txt").AppendChunk HTML GetHTML = objRS("txt").ValueEnd FunctionPrivate Function GetLink() HTML = GetHTML() StartString = "*EBCA: " StartLink = InStrRev(HTML, StartSt