Dim Names As New List(Of String)Names.Add( "1")Names.Add("15")Names.Add("4")
Dim ls As new List(of Integer)For Each s As String In names ls.add(s)Nextmsgbox(ls(1))ls.sortmsgbox(ls(1))