How to capture the first line in multi-line textbox

[Vincentan]

Hi All, I have a question here and need your advice, I have a textbox which enable multi-line, I have key key few line of the text but I want to program it maybe just capture the first line to field 1 and second line to field 2.

Thanks

 

[LPlates]

Dim strText As String
Dim arr() As String
strText = Text1.Text
arr() = Split(strText, vbNewLine)
first line = arr(LBound(arr)) ' arr(0)
second line = arr(1)
end line = arr(UBound(arr))

 

[JohnYingling]

Always test the result of Split for Ubound. TThe rUbu8nd after a Split in VB6 can be -1 as in
Dim aryW() as String
aryW = Split("",",&quot ' split Zero length string
Msgbox Cstr(Ubound(aryw)) ' = -1

Also there may be fewer elements that you expect.
arr() = Split(strText, vbNewLine)
Dim lngU as Long
lngU = Ubound(arr)
if lngU > -1 then
first line = arr(LBound(arr)) ' arr(0)
if lngU > 0 then
second line = arr(1)
End if
end line = arr(UBound(arr))
end if

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript