De vez en cuanto a la hora de desarrollar, no vemos el alcance que puede tener nuestras desiciones que propiamente tomamos a nuestro parecer.
Usualmente nosotros asumimos lógicas y sentencias fáciles de tomarlas.
Y un claro ejemplo esta en el saber como podria interactuar nuestro script con la capacidad y el tamaño que soporta un dato como variable declarada en VB6.
Si ocurre aquello, tendremos muchos inconvenientes que se va a retrasar procesos y de esta forma nuestro sistema caerá.

ByVal IdItemSalida As Integer
'# –32,768 to 32767.
ByVal IdItemSalida As Long
'# -2,000,000,000 to 2,000,000,000.

Finalmente podemos darnos cuenta de la gran eficacia que puede tener una simple equivocación de declaración de variable, aunque en consecuencia no viene a ser tan simple como parece.

'******Suma dias laborables a un fecha en especifica******
Public Function SumarDiasLaborables(ByVal vFechaIni As Date, ByVal nDias As Integer) As Date
Dim vFechaFin, vFechaAux As Date
Dim TotalDiasNL As Integer
Dim Listo As Boolean

Listo = False
vFechaFin = vFechaIni + nDias
vFechaAux = vFechaIni
TotalDiasNL = 0

Do While Listo = False
Do While vFechaAux < vFechaAux
vFechaAux = vFechaAux + 1
If (Weekday(vFechaAux, vbMonday) > 5) Then
TotalDiasNL = TotalDiasNL + 1
End If
Loop

If (TotalDiasNL > 0) Then
vFechaIni = vFechaFin
vFechaFin = vFechaFin + TotalDiasNL
vFechaAux = vFechaIni
TotalDiasNL = 0
Else
Listo = True
End If
Loop

SumarDiasLaborables = vFechaFin

End Function
'*********************************************************