Public Function SplitString(sMyString As String)
 '메모필드의 내용을 받아 엔터키를 기준으로 문자열을 나눈다

      Dim MyArray() As String
      Dim ctr As Integer

      MyArray = Split(sMyString, vbCrLf)

      For ctr = 0 To UBound(MyArray)
         debuf.print MyArray(ctr)
      Next ctr

  End Function

Copyright By AccessVision