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, StartString) + Len(StartString) EndString = ":" EndLink = InStr(StartLink, HTML, EndString) -4 Link = Mid(HTML, StartLink, EndLink-StartLink) GetLink = LinkEnd FunctionFunction Spaending_pr_V() HTML = GetLink() Seperator = "," Shift = InStr(HTML, Seperator) Value = Mid(HTML,1, Shift) Spaending_pr_V = Value/1000End FunctionFunction LadeSpaending_pr_V() HTML = GetLink() Seperator = "," Jump = InStr(1,HTML,Seperator)+1 Shift = InStr(Jump, HTML, Seperator) Value = Mid(HTML,Jump,Shift-Jump) LadeSpaending_pr_V = Value/1000End FunctionFunction Ladestroem_pr_mA() HTML = GetLink() Seperator = "," Jump2 = InStr(1,HTML,Seperator)+1 Jump = InStr(Jump2,HTML,Seperator)+1 Shift = InStr(Jump, HTML, Seperator) Value = Mid(HTML,Jump,Shift-Jump) Ladestroem_pr_mA = Value/10000End FunctionFunction Unknown1() HTML = GetLink() Seperator = "," Jump3 = InStr(1,HTML,Seperator)+1 Jump2 = InStr(Jump3,HTML,Seperator)+1 Jump = InStr(Jump2,HTML,Seperator)+1 Shift = InStr(Jump, HTML, Seperator) Value = Mid(HTML,Jump,Shift-Jump) Unknown1 = ValueEnd FunctionFunction Batteritemperatur_pr_C() HTML = GetLink() Seperator = "," Jump4 = InStr(1,HTML,Seperator)+1 Jump3 = InStr(Jump4,HTML,Seperator)+1 Jump2 = InStr(Jump3,HTML,Seperator)+1 Jump = InStr(Jump2,HTML,Seperator)+1 Shift = InStr(Jump, HTML, Seperator) Value = Mid(HTML,Jump,Shift-Jump) Batteritemperatur_pr_C = ValueEnd FunctionFunction Telefontemperatur_pr_C() HTML = GetLink() Seperator = "," Jump5 = InStr(1,HTML,Seperator)+1 Jump4 = InStr(Jump5,HTML,Seperator)+1 Jump3 = InStr(Jump4,HTML,Seperator)+1 Jump2 = InStr(Jump3,HTML,Seperator)+1 Jump = InStr(Jump2,HTML,Seperator)+1 Shift = InStr(Jump, HTML, Seperator) Value = Mid(HTML,Jump,Shift-Jump) Telefontemperatur_pr_C = ValueEnd FunctionFunction Unknown2() HTML = GetLink() Seperator = "," Jump6 = InStr(1,HTML,Seperator)+1 Jump5 = InStr(Jump6,HTML,Seperator)+1 Jump4 = InStr(Jump5,HTML,Seperator)+1 Jump3 = InStr(Jump4,HTML,Seperator)+1 Jump2 = InStr(Jump3,HTML,Seperator)+1 Jump = InStr(Jump2,HTML,Seperator)+1 Shift = InStr(Jump, HTML, Seperator) Value = Mid(HTML,Jump,Shift-Jump) Unknown2 = ValueEnd FunctionFunction Unknown3() HTML = GetLink() Seperator = "," Jump7 = InStr(1,HTML,Seperator)+1 Jump6 = InStr(Jump7,HTML,Seperator)+1 Jump5 = InStr(Jump6,HTML,Seperator)+1 Jump4 = InStr(Jump5,HTML,Seperator)+1 Jump3 = InStr(Jump4,HTML,Seperator)+1 Jump2 = InStr(Jump3,HTML,Seperator)+1 Jump = InStr(Jump2,HTML,Seperator)+1 Shift = InStr(Jump, HTML, Seperator) Value = Mid(HTML,Jump,Shift-Jump) Unknown3 = ValueEnd FunctionFunction Unknown4() HTML = GetLink() Seperator = "," Jump8 = InStr(1,HTML,Seperator)+1 Jump7 = InStr(Jump8,HTML,Seperator)+1 Jump6 = InStr(Jump7,HTML,Seperator)+1 Jump5 = InStr(Jump6,HTML,Seperator)+1 Jump4 = InStr(Jump5,HTML,Seperator)+1 Jump3 = InStr(Jump4,HTML,Seperator)+1 Jump2 = InStr(Jump3,HTML,Seperator)+1 Jump = InStr(Jump2,HTML,Seperator)+1 Shift = InStr(Jump, HTML, Seperator) Value = Mid(HTML,Jump,Shift-Jump) Unknown4 = ValueEnd FunctionFunction Battery_percent() HTML = GetLink() Seperator = "," Jump9 = InStr(1,HTML,Seperator)+1 Jump8 = InStr(Jump9,HTML,Seperator)+1 Jump7 = InStr(Jump8,HTML,Seperator)+1 Jump6 = InStr(Jump7,HTML,Seperator)+1 Jump5 = InStr(Jump6,HTML,Seperator)+1 Jump4 = InStr(Jump5,HTML,Seperator)+1 Jump3 = InStr(Jump4,HTML,Seperator)+1 Jump2 = InStr(Jump3,HTML,Seperator)+1 Jump = InStr(Jump2,HTML,Seperator)+1 Shift = InStr(Jump, HTML, Seperator) Value = Mid(HTML,Jump,Shift-Jump) Battery_percent = ValueEnd Function
I am still interested if anyone knows how to loop this insteadJakob