with the following assignment

x = Msg.Body

what is the easiest way to read number of lines and strip blank lines from
variable x ?

is there a Line End hex character that can be looped ?

some pseudo code:

dim x_len
dim x
dim line_hold
dim line_loop

x = Msg.Body

x_len = Len(x)

for line_loop = 1 to x_len step 1
if mid(x, line_loop, 1) = vbCrLf then
line_hold = line_hold + 1
x_line = mid(x, line_hold, line_loop - 1)
end if
next

this works

Dim v()
Dim i
Dim this_line

v= split(msg.body, vbCrLf)

for i = 0 to ubound(v)
this_line = v(i)
next