Это удалит все CRLF в вашей строке.
strFileName = Replace(strFileName, vbNewLine, "")
Вот функция, которую вы можете поместить в вспомогательный модуль:
Public Function CleanFilePath(FilePath As String) As String
Return Replace(FilePath, vbNewLine, "")
End Function
РЕДАКТИРОВАТЬ:
Кроме того, здесь есть вспомогательная подпрограмма для изменения самой строки.Это не стандартная практика на новых языках, хотя.
Public Sub CleanFilePath(ByRef FilePath As String)
FilePath = Replace(FilePath, vbNewLine, "")
End Sub