DimiAsIntegerLabel.Text=TextBox.TextFori=ToLen(TextBox.Text)Label.Text&=Mid(TextBox.Text，i，)Next