By the way, the first item in the list box was being missed because of the starting variable being 1 instead of 0. Correct it like this..
Code:
For lng = 1 To lstALMSource.ListCount - 1
to
Code:
For lng = 0 To lstALMSource.ListCount - 1
Check the video