DimiAsIntegerLabel.Text=“”Fori=ToLen(TextBox.Text)Label.Text=__Next