Sub proba()
        Call test
    End Sub
    Function test()
        Dim odgovor
the_start:
        
        Set objIE = CreateObject("InternetExplorer.Application")
        objIE.Top = 0
        objIE.Left = 0
        objIE.Width = 800
        objIE.Height = 600
        objIE.Visible = False 'We will see the window navigation
        
        On Error Resume Next
        objIE.Navigate ("https://icentar.ba/icentar/showtopic.php?id=22")
        
        Do
        DoEvents
            If Err.Number <> 0 Then
                objIE.Quit
                Set objIE = Nothing
                GoTo the_start:
            End If
        Loop Until objIE.ReadyState = 4
        
        
        Dim AllString As String
        
        Set Alllinks = objIE.Document.getElementsByTagName("div")
        For Each Hyperlink In Alllinks
           ime = Hyperlink.className
            If ime = "bbody iefix_left" Then
                AllString = Hyperlink.innerText
                 
                odgovor = MsgBox(AllString, vbOKCancel)
                If odgovor = vbCancel Then Exit Function
                
            End If
        Next
        
    Set objIE = Nothing
    End Function