How to vectorise this function

How to vectorize this function:

NumI = 0;
for i=1:100
    if Value(i) < 10000
            NumI = NumI +1;
    end
end 
Elements = zeros(5000, NumI); 

%% Value - array of float values

Answer 1

[Stephan]

NumI = sum(Value < 10000);
Elements = zeros(5000, NumI);

Answer 2

[Andrei Bobrov]

NumI = sum(Value(1:100) < 10000)