CLASSIFICAR ARQUIVO TEXTO EM ORDEM CRESCENTE

Private Sub Importa()
Dim i  As Integer, sCaminho As String, sTemp As String
Dim lArq As Long, sLinha As String, lCont As Long, lPos As Long

Dim rsDesconectado As ADODB.Recordset
Set rsDesconectado = New ADODB.Recordset
    
rsDesconectado.Fields.Append "Codigo", adBigInt
rsDesconectado.Fields.Append "Remedio", adVarChar, 40
rsDesconectado.Fields.Append "Referencia", adVarChar, 20


rsDesconectado.ActiveConnection = Nothing
rsDesconectado.CursorLocation = adUseClient

rsDesconectado.Open
    
    
    sCaminho = App.Path & "\Banco Dados\Laboratorio.txt"
    
    lArq = FreeFile
    'Abertura do Arquivo
    Open sCaminho For Input As lArq
    lCont = 1
    lPos = 0
    Do While Not EOF(lArq)
    'Leitura das Linhas de Texto
    Line Input #lArq, sLinha
    
    'Monta os Registros
    If lCont > 1 Then
    For lPos = 0 To Len(sLinha) Step 68
      rsDesconectado.AddNew
      rsDesconectado("Codigo").Value = CSng(Mid(sLinha, lPos + 1, 19))
      rsDesconectado("Remedio").Value = Mid(sLinha, lPos + 19, 26)
      rsDesconectado("Referencia").Value = Mid(sLinha, lPos + 47, 20)
      rsDesconectado.Update
    Next
    End If
      lCont = lCont + 1
    Loop
    
 Close #lArq

rsDesconectado.Sort = ("Remedio desc, Referencia desc")

Set MSHFlexGrid1.DataSource = rsDesconectado
rsDesconectado.Close
Set rsDesconectado = Nothing
MSHFlexGrid1.ColWidth(0) = 200
MSHFlexGrid1.ColWidth(1) = 1500
MSHFlexGrid1.ColWidth(2) = 3500
MSHFlexGrid1.ColWidth(3) = 1500

    MsgBox "Importado e Classificado "

End Sub