Generate Pseudo Random bits from a string in msword VBA

I need a code in MS Word VB A, I have a sequence of bits as 10110001110000111 .... my interest is how to generate random bit sequence assumes that first generate fourth bit is 1 then the next if I need 3 bits are generated three random bits as 1 0 1 so if need four bits four random bits are generated as 1001. After doing all this if I run again which can generate the bit sequence again.

Please help me in this code. How I can do this.