Try something like

Dim S As String
Dim N1 As Long
Dim N2 As Long
S = "abc" & Chr(10) & "def" & Chr(10) & "ghi"
N1 = InStr(1, S, Chr(10), vbBinaryCompare)
N2 = InStr(N1 + 1, S, Chr(10), vbBinaryCompare)
Debug.Print N1, N2

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)





On Tue, 1 Sep 2009 01:27:14 +0200, "Jack Sons"
wrote:

Hi all,

I know the text in B2 contains char(10) at 2 positions. What code is needed
tot find the first an the second position?
TIA

Jack Sons
The Netherlands