[AL_BRNS]

السلام عليكم

ان كنت تقصد بــ تكست 

TextBox

جرب التالي

PHP كود :

Private Sub Command1_Click()
Dim A() As String
Dim s As String
s = Text1.Text
A() = Split(s, vbNewLine)
Text2.Text = (A(0)) & vbCrLf & (A(2))
End Sub 


سيتم عرض السطر الاول  والسطر الثالث

اما ان كنت تقصد بــ تكست

المستند النصي 

جرب التالي

PHP كود :

Private Function readline(ByRef strfilepath As String, ByRef nline _
As Integer) As String
Dim nextline As String
Dim n As Integer
filenum = FreeFile
Open strfilepath For Input As filenum
Do Until EOF(filenum)
Line Input #filenum, nextline
n = n + 1
If n = nline Then readline = nextline
Loop
Close
End Function

Private Sub Command1_Click()
Text1.Text = readline(App.Path & "/test.txt", 3)
End Sub 


سيتم عرض السطر الثالث من المستند النصي

بالتوفيق .