Public Const EM_EMPTYUNDOBUFFER = 205
Public Const EM_CANUNDO = 198
Public Const EM_GETMODIFY = 184
Public Const EM_SETMODIFY = 185
Public Const EM_UNDO = 199

Public Const EM_CANPASTE = 1074
Public Const EM_FINDTEXT = 1080

Public Const EM_GETFIRSTVISIBLELINE = 206
Public Const EM_GETLINECOUNT = 186
Public Const EM_GETLINE = 196
Public Const EM_LINEFROMCHAR = 201
Public Const EM_LINEINDEX = 187
Public Const EM_LINELENGTH = 193

Public Const EM_EXLINEFROMCHAR = 1078
Public Const EM_LINESCROLL = 182
Public Const EM_SCROLLCARET = 183
Public Const EM_SETTABSTOPS = 203


Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lparam As Long) As Long

Dim sFileName As String
Dim Lines
Dim WinH As Long
Dim i As Integer
Dim LineLength As Long
Dim charOffset As Long

'Get the windows handle of the multiline text box
WinH = txtFileName.hWnd

'Get the number of lines in the mutiline text box called txtFileName
Lines = SendMessage(WinH, EM_GETLINECOUNT, 0, 0)

For i = 0 To Lines - 1

'Retrieve the offset of first character in the line
charOffset = SendMessage(WinH, EM_LINEINDEX, i, 0)
'Now get the length of the line
LineLength = SendMessage(WinH, EM_LINELENGTH, charOffset, 0)
'Debug.Print LineLength
sFileName = Mid$(txtFileName.Text, charOffset + 1, LineLength)
Debug.Print sFileName

Next i