```lang-vb
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!