Nothing actually. Just change the line
Code:
For lng = 1 To lstALMSource.ListCount - 1
to
Code:
For lng = 0 To lstALMSource.ListCount - 1