PrivateSubButton_Click(……)HandlesButton.ClickDimcAsCharDimiAsIntegerRandomize()Fori=Toc=Chr(Int(__))TextBox.Text&=cNextEndSub