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!" 
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!"