stripLeadingSpaces(string)
    f i=1:1:$l(string) QUIT:$e(string,i)'=" "
    QUIT $e(string,i,$l(string))
stripTrailingSpaces(string)
    n i,spaces,new
    s spaces=$$makeString(" ",100)
    s new=string_spaces
    QUIT $p(new,spaces,1)
makeString(char,len) 
   ...

Dim arr As String[]
Dim i As Integer
Dim arrstring As String[]

  arr = Split(SRCTXT.Text, "\n")
  For i = 0 To arr.Count - 1
  If InStr(arr[i], "\n") And Not InStr(arr[i], " ") Then
    Message(arr[i])
  Endif
  Next
' Catch
 '  Message.Error("Code: " & Error.Code & ", = " & Error.Text & " At: " & Error.Where, " OK ")  

If Left(arr[i], 1) <> " " And Left(arr[i], 1) <> ";" And Left(arr[i], 1) <> vbTab Then