VBScript, 201 bytes

Randomize():z="zun,":d="doko,":Do:a=e:Do:a=a&Array(z,d)(Round(Rnd())):Loop While UBound(Split(a,","))<5:MsgBox(a):Loop While Not Cbool(Instr(a,Replace(Space(4)," ", "zun,")&"doko,")):MsgBox"ki-yo-shi!" 

VBScript, 257 bytes

Randomize():z="zun,":d="doko,":Do:a=a&Array(z,d)(Round(Rnd())):Loop While UBound(Split(a,","))<5:Do:a=Split(a,","):a(0)="a":a=Replace(Join(a,",")&Array(z,d)(Round(Rnd())),"a,",e):MsgBox a:Loop While Not Cbool(Instr(a,"zun,zun,zun,doko,")):MsgBox"ki-yo-shi!" 

VBScript, 132 bytes

Do:Randomize():r=Round(Rnd()):l=Len(x) If l<5 Then x=x&r Else x=Right(x,l-1)&r End If Loop While x<>"00001":MsgBox"ki-yo-shi!" 

Here's a pretty straight-forward attempt in which every 0 is a "zun" and every 1 is a "doko", too bad that VBScript uses the same seed to generate random numbers and to avoid that you have to Randomize() the seed!

VBScript, 201 bytes

Randomize():z="zun,":d="doko,":Do:a=e:Do:a=a&Array(z,d)(Round(Rnd())):Loop While UBound(Split(a,","))<5:MsgBox(a):Loop While Not Cbool(Instr(a,Replace(Space(4)," ", "zun,")&"doko,")):MsgBox"ki-yo-shi!" 

Do:Randomize():r=Round(Rnd()):l=Len(x) If l<5 Then x=x&r Else x=Right(x,l-1)&r End If Loop While x<>"00001":MsgBox"ki-yo-shi!" 

Here's a pretty straight-forward attempt in which every 0 is a "zun" and every 1 is a "doko", too bad that VBScript uses the same seed to generate random numbers and to avoid that you have to Randomize() the seed!

VBScript, 132 bytes

Do:Randomize():r=Round(Rnd()):l=Len(x) If l<5 Then x=x&r Else x=Right(x,l-1)&r End If Loop While x<>"00001":MsgBox"ki-yo-shi!" 

Here's a pretty straight-forward attempt in which every 0 is a "zun" and every 1 is a "doko", too bad that VBScript uses the same seed to generate random numbers and to avoid that you have to Randomize() the seed!