طور می توان کاری کرد که مثلا عدد 12345 رو از هم جدا کرد و هر کدوم از عدد ها رو روی یک لیبل نشون داد

براي اين كار  ما ميتونيم از توابع left ,right ,mid استفاده كنيم

 مواد مورد نياز :command ,textbox و 5 تا Label

اينم كدها اگه مشكلي بود حتما بيان كنيد

Dim anystring, mystr
Private Sub Command1_Click()
anystring = Text1.Text
Label1 = Left(anystring, 1)
Label3 = Right(anystring, 1)
Label2 = Mid(anystring, 2, 1)
Label4 = Mid(anystring, 3, 1)
Label5 = Mid(anystring, 4, 1)
End Sub
  (سطر اول رو تو جنرال وارد كنيد)