Help with Listview

Hi, I'm trying to do a few things with some listview boxes.. First, I want to add items in the listview from the top when a new entry is inputed, right now, lsvList.ListItems.Add adds from the bottom..

Also, I want to be able to sort on a column with alpha numeric characters (1, 2, 2A, 3, etc).. When I use this code on the columnclick event:

Dim nSortCol As Integer
nSortCol = ColumnHeader.Index - 1
If (lsvItemInfo.SortKey = nSortCol) Then
lsvItemInfo.SortOrder = 1 - lsvItemInfo.SortOrder
Else
lsvItemInfo.SortKey = nSortCol
lsvItemInfo.SortOrder = lvwAscending
End If
lsvItemInfo.Sorted = True

It sorta the column like this: 1, 10, 100, 2, 20, etc.. Is there a way around this?
Thanks
John