For i = 0 To dt.Rows.Count - 1
                        Dim R0 As String = CStr(dt.Rows(i)(0))
                        Dim R1 As String = CStr(dt.Rows(i)(1))
                        Dim sRows As String = R0 & "/" & R1
 
                        ReDim Preserve SortArr(i)
                        SortArr(i) = sRows
                        Array.Sort(SortArr, Function(s1, s2) CInt(s1.Split( _
                          "/"c)(1)).CompareTo(CInt(s2.Split("/"c)(1))))
                        Array.Reverse(SortArr)
                        DirectCast(ctrl, ComboBox).DataSource = SortArr
                    Next i