مشکل در وي بي

با سلام

من مي خواستم برنامه اي بنويسم كه 2 تا textbox داشته باشه ویک Button . وقتی هر بار روی Button کلیک می کنم یک کلمه از متن text1را (تا space) درون text2 نمایش بده تا این که کل جمله ی text1 درون text2 قرار بگیره.
اون چیزی که خودم نوشتم ارور میده.
اگر کسی بلده لطفا راهنمایی کنه یا اشکال برنامه رو بگه.
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ممنون :rolleye:

دوست عزیز اگه منظورتون درست فهمیده باشم اینم کد

کد:

---

Dim i As Integer
Dim s As String
Dim pos As Integer
Private Sub Command1_Click()
s = Text1.Text
pos = InStr(pos + 1, s, " ")
If pos = 0 Then
    Text2.Text = Text2 & Mid(s, i)
    Command1.Enabled = False
Else
    Text2.Text = Text2 & Mid(s, i, (pos - i) + 1)
End If
i = pos + 1
End Sub

Private Sub Form_Load()
pos = 0
i = 1
End Sub

---

با تشكر از راهنماييتون
اگه ممكنه يه توضيح در مورد InStr بدين(اصلا چي كار مي كنه)

این تابع میاد یک رشته رو داخل یه رشته دیگه جستجو میکنه و موقعیت شروع رشته را بر میگردونه .