جداسازی متن در تکستباکس بر اساس یک کاراکتر خاص

[niksalehi]

سلام دوستان عزیز
من یه متنی دارم به شکل زیر:
salam chetori
***
khubam merci
***
to khubi

حالا میخوام *** به صورت یه جداکننده باشه، یعنی متن تا به *** رسید جدا بشه و توی تکستباکس های دیگه قرار بگیره!
مثلا salam chetori و khubam merci و to khubi توی 3 تا تکستباکس قرار بگیرن...
راهی هستش؟

[the king]

سلام دوستان عزیز
من یه متنی دارم به شکل زیر:
salam chetori
***
khubam merci
***
to khubi

حالا میخوام *** به صورت یه جداکننده باشه، یعنی متن تا به *** رسید جدا بشه و توی تکستباکس های دیگه قرار بگیره!
مثلا salam chetori و khubam merci و to khubi توی 3 تا تکستباکس قرار بگیرن...
راهی هستش؟

حداقل سه تا TextBox با اسامی Text1 و Text2 و Text3 و ... روی فرم قرار دهید :

Private Sub Form_Load()
Dim s As String
Dim index As Integer
Dim texts() As String
s = "salam chetori" + vbNewLine _
+ "***" + vbNewLine _
+ "khubam merci" + vbNewLine _
+ "***" + vbNewLine _
+ "to khubi"
texts = Split(s, "***" + vbNewLine)
For index = 0 To UBound(texts)
Controls("Text" + CStr(index + 1)).Text = Replace(texts(index), vbNewLine, "")
Next
End Sub