No me entra en lso for

[ldcd]

me parece q en tus for tu condicion de parar es verdadera desde el inicio por eso nunca entran

For partidos = 0 To partidos < 6 Step 1
If (Val(votosPartidos.Items(partidos)) < totalVotos * 0.05 And (Val(votosPartidos.Items(partidos)) <> 0)) Then
votosPartidos.Items(partidos) = -1
End If
Next partidos

en este por ejemplo le asignas a partidos q sea 0, y la condicion para q pare es que partidos sea menor a 6 y como 0<6 entonces pues no entra.

intenta dejarlo asi:

For partidos = 0 To 6
If (Val(votosPartidos.Items(partidos)) < totalVotos * 0.05 And (Val(votosPartidos.Items(partidos)) <> 0)) Then
votosPartidos.Items(partidos) = -1
End If
Next partidos

pruebalo y avisanos si funciono.