The forum combined the first 2 lines of code. I don't know why it does that, a bug I guess. Unfortunately, can no longer edit that post. Just need to hit Enter after the underscore character so you get:

Public Function ListFileTypes(strPath As String, Optional strFileSpec As String, _ 
   Optional bIncludeSubfolders As Boolean, Optional lst As ListBox)
And remove the apostrophe in front of On Error GoTo line to enable the error handler.