Private Sub Command1_Click()

Static i As Integer



Static T As String

If T = "" Then T = Text1.Text

 

Text1.Text = Split(T, ",")(i)

 

i = i + 1



End Sub


البته این روش درست نیست بهتره تکست 2 درست کنی و مخفیش کنی و از توی اون بخونی یا اینکه یه متغیر سراسری داشته باشی و متن اصلی رو توش بنویسی