خواندن خط های یک text box

[vahid_d_0101]

ببخشید من میخوام مثلا خط دوم یه text box را در متغیری ذخیره کنتم امکان داره یا نه:عصبانی++:

[vbhamed]

سلام
اين نمونه خط n ام TextBox رو بر مي گردونه كه در اينجا 2 هست
اگر هم خط n ام نداشته باشه چيزي بر نمي گرده




Dim n As Integer, s() As String, sn As String

n = 4

s = Split(Text1.Text, vbCrLf)

If UBound(s) >= n - 1 Then sn = s(n - 1)

MsgBox sn