Por que no funciona

[aldo1982]

Iniciado por Quemero

Hola les escribo porque tengo un problema con una "zona inutilizable" de un codigo: En el evento click de un combo puse este codigo que esta aca. Si se fijan, al final dice deshabilitar, eso es una funcion que hice. La cosa es que todo lo que ponga en ese lugar, o sea al final del codigo, no me anda, ya sea una funcion, un msgbox o lo que sea nada me funciona. Lo raro es que si esa funcion la pongo en un boton cualquiera o si la pongo al principio de este codigo, me anda perfectamente. Es como que el codigo que hay aca inhabilita la zona del final y cualquier codigo que ponga ahi esta muerto, es una zona perdida digamos...¿por que sera?

Private Sub Combo1_Click()
Combo4.Enabled = True

On Error GoTo errorg
Dim borrartipos As Integer
For borrartipos = 0 To Combo4.ListCount - 1
Combo4.RemoveItem (borrartipos)
Next
errorg: Form1.BackColor = &H8000000F

On Error GoTo error
listauno$ = "c:\tipos " & Combo1.List(Combo1.ListIndex) & ".txt"
Dim lstuno As String
On Error GoTo error
Open listauno$ For Input As #1
While Not EOF(1)
Input #1, lstuno$
Combo4.AddItem " " & lstuno$
DoEvents
Wend
Close #1
Exit Sub
error: Form1.BackColor = &H8000000F

deshabilitar 'ACA ESTA EL PROBLEMA: ACA NO FUNCIONA NINGUN CODIGO
End Sub

ESTEM, ESE CODIGO ESTÁ BIEN, CHECKEÁDE TENER TODOS LOS CONTROLES EN EL FORMULARIO KE USA ESE CODIGO.
SALU2