Udfører Funktioner og Subs for sent

Lidt kode:
Private Sub Command1_Click()
Dim I As Integer
    For I = 1 To 16
        MsgBox (I)
        vala = -(Int(Text2.Text))
        nu = -(Int(Slide(I).value))
        If nu > vala Then
            temp = FadeUPfast(I, -I)
        Else
            temp = FadeDWfast(I, -I)
        End If
    Next I
End Sub

Private Function FadeUPfast(ByVal Index As Integer, ByVal las As Integer)
    Timer(Index).Enabled = False
    Timer(Index).Interval = fast
    speed = fastC
    last = las
    Timer(Index).Enabled = True
End Function

Private Function FadeDWfast(Index As Integer, las As Integer)
    Timer(Int(Index)).Enabled = False
    Timer(Int(Index)).Interval = fast
    speed = -fastC
    last = Int(las)
    Timer(Int(Index)).Enabled = True
End Function

Private Sub Timer_Timer(Index As Integer)
    If Slide(Index).value = last Then
        Timer(Index).Enabled = False
    Else
        Slide(Index).value = Slide(Index).value - speed
    End If
End Sub

Er der nogen der kan forklare mig hvorfor at når jeg trykker på Command1, så kører den "kommandoen": "FadeUPfast(I, -16) " 16 gange hvor den dog skifter det første I ud... men ikke det andet (-I)