Parse text file or xml into listboxes

[Doogle]

You might see some performance improvements using SendMessage toadd the items to the listboxes
eg

Option Explicit

Private Const LB_ADDSTRING = &H180
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                (ByVal hwnd As Long, _
                 ByVal wMsg As Long, _
                 ByVal wParam As Long, _
                 lParam As Any) As Long
Private lngRet As Long

    'Loop through the node list and fill the listboxes
    For Each objNode In objNodeList
        'Get the zip code
        Set oNode = objNode.selectSingleNode("Code")
        lngRet = SendMessage(lstZip.hwnd, LB_ADDSTRING, 0&, ByVal oNode.Text)
        
        'Get the Longitude
        Set oNode = objNode.selectSingleNode("Longitude")
        lngRet = SendMessage(lstLong.hwnd, LB_ADDSTRING, 0&, ByVal oNode.Text)
        
        'Get the Latitude
        Set oNode = objNode.selectSingleNode("Latitude")
        lngRet = SendMessage(lstLat.hwnd, LB_ADDSTRING, 0&, ByVal oNode.Text)
    Next

[ice_531]

You might see some performance improvements using SendMessage toadd the items to the listboxes
eg

Option Explicit

Private Const LB_ADDSTRING = &H180
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                (ByVal hwnd As Long, _
                 ByVal wMsg As Long, _
                 ByVal wParam As Long, _
                 lParam As Any) As Long
Private lngRet As Long

    'Loop through the node list and fill the listboxes
    For Each objNode In objNodeList
        'Get the zip code
        Set oNode = objNode.selectSingleNode("Code")
        lngRet = SendMessage(lstZip.hwnd, LB_ADDSTRING, 0&, ByVal oNode.Text)
        
        'Get the Longitude
        Set oNode = objNode.selectSingleNode("Longitude")
        lngRet = SendMessage(lstLong.hwnd, LB_ADDSTRING, 0&, ByVal oNode.Text)
        
        'Get the Latitude
        Set oNode = objNode.selectSingleNode("Latitude")
        lngRet = SendMessage(lstLat.hwnd, LB_ADDSTRING, 0&, ByVal oNode.Text)
    Next

I'll give it a try later and do some timed tests to see. It may speed up some.

thanks for the idea.