وارد کردن خطهای تکست در تکستهای دیگر

[Hassan2500]

سلام

کدی میخوام که سه خط تکست1 وارد تکستهای 2 تا 4 شوند یعنی خط اول وارد تکست2 و خط دوم وارد تکست3 و خط سوم وارد تکست4 شود

[vbhamed]

سلام

On Error Resume Next

Dim s() As String

s = Split(Text1, vbCrLf)

Text2 = s(0)
Text3 = s(1)
Text4 = s(2)