Tengo un código vb6 que ordena un excel al ejecutarlo la primera vez funciona luego por 2da se cae

Este es el código

Private Sub Command2_Click()
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range
'On Error GoTo Err_Handler
' Start Excel and get Application object.
Set oXL = CreateObject("Excel.Application")
oXL.Visible = True
' Get a new workbook.
'Set wbLibro = aoColeccionLibros.Open(rutaArchivo)
Set oWB = oXL.Workbooks.Open(rutaArchivo)
Set oSheet = oWB.ActiveSheet

'-------- acá esta erro al ejecutar la segunda vez puedo

'-------- ver en el adm de tareas que queda abierto si quito esta linea se cierra bien

'--------( el with que ordena)

With oSheet.Range("A1", "A10000")
.Sort Key1:=Range("A2"), Order1:=xlAscending
End With

'------- acá termina el error

oWB.Save
oXL.Visible = True
oXL.UserControl = True
oXL.Quit
' Make sure you release object references.
Set oRng = Nothing
Set oSheet = Nothing
Set oWB = Nothing
Set oXL = Nothing
Exit Sub
Err_Handler:
MsgBox Err.Description, vbCritical, "Error: " & Err.Number
End Sub

Espero me puedan ayudar ya que esta hoja del excel me tiene vuelto loco.

saludos y gracias