Ayuda por favor

[XYON126]

Hola erbuson!

Creo que estas mirando un codigo antiguo pues en el codigo actualmente el unico MsgBox que hay esta al fin del codigo .:

Código vb:

Public Sub ContadorSemanas()
 
Dim Control As Integer
Dim NRegistro As Integer
Dim i As Integer
 
D = LOF(Numero) / 94
RegUltimo = LOF(Numero) / 94
Control = 0
 
ReDim CSemanas(1, 1)
 
For i = 1 To D
 
    Get #Numero, RegUltimo, Horas
    NRegistro = RegUltimo
    RegUltimo = RegUltimo - 1
    
     If Horas.npedido = npedido_C Then
            If Control <> Horas.semana Then
                ReDim Preserve CSemanas(1, UBound(CSemanas, 1) + 1)
                CSemanas(0, UBound(CSemanas, 1) + 1) = NRegistro
                CSemanas(1, UBound(CSemanas, 1) + 1) = Horas.semana
                Control = Horas.semana
                cbo_semanas.AddItem Horas.semana
            End If
     End If
 
Next i
 
NrSemanas = UBound(CSemanas, 2) + 1
 
MsgBox CSemanas(0, 0) & " ; " & CSemanas(0, 1) & vbCrLf & _
       CSemanas(1, 0) & " ; " & CSemanas(1, 1) & vbCrLf
 
End Sub
 

es este el que no me añade nada, bueno el otro es que ni corria, el que creo haces referencias es el que tenia el With y la matriz declarada internamente y no publica en un modulo que es como esta ahora, igual al que te he enviado.

Un saludo