Hvala na odgovoru i ideji.
Evo mog koda pa ako moze nekome koristiti:
Private Sub Command50_Click()
Me.txtOutput = Null
Me.txtOutput2 = Null
Me.txtOutput3 = Null
Me.txtOutput4 = Null
Me.txtOutput5 = Null
Me.pass = Null
Me.StatusText = Null
MsgBox "Vrijeme"
Dim xmlhttp As New MSXML2.xmlhttp
Dim url As String
Dim user As String
Dim Password As String
Dim strJSONToSend As Variant
Dim strUpit As Variant
url = "
https://time.is/"
xmlhttp.Open "GET", url, False
xmlhttp.setRequestHeader "Content-Type", "text/html; charset=utf-8"
xmlhttp.setRequestHeader "Accept", "text/html"
xmlhttp.setRequestHeader "Host", "vreme.radioni.ca"
xmlhttp.setRequestHeader "Content-Length", 1316
xmlhttp.setRequestHeader "Expect", "100-continue"
xmlhttp.Send (url)
Me.txtOutput4 = xmlhttp.GetAllResponseHeaders
MsgBox (xmlhttp.GetAllResponseHeaders)
If IsNull(Me.txtOutput4) = False And Len(Me.txtOutput4) <> 13 Then
Dim lPos1 As Long
Dim lPos2 As Long
Dim sText As String, sSubString As String
sText = txtOutput4
lPos1 = InStr(1, sText, "Expires:")
Do While lPos1 > 0
lPos2 = InStr(lPos1 + 1, sText, "Content-Language")
If lPos2 > 0 Then
sSubString = Mid$(sText, lPos1 + 14, lPos2 - lPos1 - 31)
Debug.Print sSubString
Else
Exit Do
End If
lPos1 = InStr(lPos2 + 1, sText, "Expires:")
Loop
Me.txtOutput = sSubString
Me.txtOutput3 = Format(sSubString, "dd-MMM-yy")
End If
End Sub
Pozdrav