Visual Basic - como ordenar grilla en forma numerica

holass a cualquiera que pueda me pueda ayudar....bueno mi problema es el siguiente ...cree una grilla para una aplicacion vb...en el dbclick tengo un codigo para que le ordene ascendente y desendente...

Private Sub gr_clientes1_Click(ByVal Col As Long, ByVal Row As Long)
'Si presiona la primera Fila, Realiza Orden
If Row = 0 Then

'grdPedidos.SortBy = 1 'orden por fila
gr_clientes1.SortBy = 2 'orden por columna

'Indica el Tipo de Orden
If chkOrden1.Value = 1 Then 'Descendente
gr_clientes1.SortKeyOrder(1) = 2
chkOrden1.Value = 0

Else
gr_clientes1.SortKeyOrder(1) = 1
chkOrden1.Value = 1
End If

gr_clientes1.SortKey(1) = Col

gr_clientes1.Col = 0
gr_clientes1.Col2 = gr_clientes1.MaxCols
gr_clientes1.Row = 0
gr_clientes1.Row2 = gr_clientes1.MaxRows
gr_clientes1.Action = 25 'Accion = Ordenar

Else
'Deja Activa la Fila Seleccionada
gr_clientes1.Row = Row
'gr_clientes1.ActiveRow = Row


gr_clientes1.Col = 2
Lblcli_total = gr_clientes1.Text

gr_clientes1.Col = 15
Lblcli_510 = gr_clientes1.Text

End If

gr_clientes1.SetFocus
End Sub..

pero este procediendo solo me ordena de forma alfabeticamente...y no numerica...si alguien sabe como solucionar este problema se lo agradecere...

Tenia el mismo problema pero con listview, creo qe la misma solucion se puede dar para tu caso, la cuestion es que a los numeros le tienes que colocar un X cantidad de 0 delantes ordenarlo y luego quitarle los ceros

dim RgsT as Long
RgsT = LstX.ListItems.count
For Ds = 1 To RgsT
LstX.ListItems.Item(Ds).SubItems(2) = String$(20 - Len(LstX.ListItems.Item(Ds).SubItems(2)), "0") & LstX.ListItems.Item(Ds).SubItems(2)
Next
If LstX.SortOrder = lvwAscending Then
LstX.SortKey = 2
LstX.SortOrder = lvwDescending
Else
LstX.SortKey = 2
LstX.SortOrder = lvwAscending
End If
For Ds = 1 To RgsT
LstX.ListItems.Item(Ds).SubItems(2) = FormatNumber(LstX.ListItems.Item(Ds).SubItems(2), 2)
Next

te lo coloco como lo hice en el listview, tu puedes acomodarlo para la grilla

^^