Sub GetFundPrices()
   Set WS = Worksheets("Investment Details")
   Set htm = CreateObject("htmlFile")
   Set XML = CreateObject("msxml2.xmlhttp")
   procform.Show (vbModeless)
   
   Dim i As Long
   Dim lastRow As Long
   lastRow = WS.Range("C:C").Find(What:="*exit*", LookIn:=xlValues).Row
   For i = 1 To lastRow
       'Update Row Values'
       If WS.Cells(i, 1).Value = "1" Then
           Dim fundName As String
           fundName = WS.Cells(i, 3).Value
       
           'Update form'
           procform.lbl_fundName.Caption = fundName
       
           'Obtain data'
           XML.Open "GET", "http://www.fundsupermart.com.my/main/fundinfo/dailyPricesHistory.tpl?id=" & fundName, False
           XML.send
           If XML.ReadyState = 4 And XML.Status = 200 Then
               htm.body.innerHTML = XML.responsetext

               On Error GoTo ErrHandler:
                   'Get first row of data'
                   Set FirstRow = htm.getElementsByTagName("tr")(2).Children
                   
                   procform.Repaint
                   
                   'Update date value'
                   WS.Cells(i, 4).Value = FirstRow(3).innerText
                   
                   'Update NAV'
                   WS.Cells(i, 9).Value = FirstRow(2).FirstChild().innerText
           End If
       End If
   Next i

   'Hide procform'
   procform.Hide
   Exit Sub

ErrHandler:
   MsgBox ("Cannot load data. Either the FSM Code is incorrect or FundSuperMart is down.")
   procform.Hide
End Sub

Sub GetFundPrices()
   Set WS = Worksheets("Investment Details")
   Set htm = CreateObject("htmlFile")
   Set XML = CreateObject("msxml2.xmlhttp")
   
   Dim i As Long
   Dim lastRow As Long
   'Search for the last line item (column A) with value 0
   lastRow = WS.Range("A:A").Find(What:="0", After:=WS.Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
   xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False).Row
   
   
   'Executing logs placeholder
   Dim logs As String
   logs = "Status logs:" & vbNewLine
   
   'Set a Number of Updates counter, starting from zero before going into the loop
   Dim successfulUpdate As Long
   Dim totalUpdate As Long
   sucessfulUpdate = 0
   totalUpdate = 0
   
   'From first row all the way to the row containing the value *exit*'
   'From first row all the way to the last row of line item 0
   For i = 1 To lastRow
       'If this row is a group header row (Column A has a value of 1)'
       If WS.Cells(i, 1).Value = "1" Then
       
           ' total update counter +1
           totalUpdate = totalUpdate + 1
           
           'Get the fund code'
           Dim fundName As String
           fundName = WS.Cells(i, 3).Value
           
           'Download the correct price list'
           XML.Open "GET", "http://www.fundsupermart.com.my/main/fundinfo/dailyPricesHistory.tpl?id=" & fundName, False
           On Error GoTo EndHandler: ' terminate if error in connecting
           
           XML.send
           If XML.ReadyState = 4 And XML.Status = 200 Then
               
               htm.body.innerHTML = XML.responsetext
               
               On Error GoTo ErrHandler:
               'On Error Resume Next:
                   'Get all 4 cells in the first row of data'
                   Set FirstRow = htm.getElementsByTagName("tr")(2).Children
                   
                   'Update date value from 4th table cell of first row'
                   WS.Cells(i, 4).Value = FirstRow(3).innerText
                   
                   'Update NAV value from the DIV element in the 3rd table cell of first row'
                   WS.Cells(i, 9).Value = FirstRow(2).FirstChild().innerText
                   
               ' successful update counter +1
               successfulUpdate = successfulUpdate + 1
               logs = logs & vbNewLine & fundName & vbTab & "OK!"
SkipBlocks:
'skip everything above from "On Error GoTo ErrHandler:" block
           End If
       End If
   Next i
   
   MsgBox logs
   Exit Sub
   
ErrHandler:
   MsgBox ("Cannot load data. Either the FSM Code is incorrect or FundSuperMart is down." & i)
   ' fail counter, messages
   logs = logs & vbNewLine & fundName & vbTab & "ERROR!"
   'i = i + 1
   'Resume Next
   Resume SkipBlocks:
   
EndHandler:
   MsgBox ("Unable to connect to FSM website. Please try again later.")
   
   

End Sub