فکر نکنم نیازی به باز کردن فایل باشه ؟؟
با همچین دستوری فکر کنم بشه ؟؟
البته من بلد نیستم ایدیتش کنم

For i = 0 To List1.ListCount - 1
If InStr(1, List1.List(i), "mohsen", vbTextCompare) <> 0 Then List2.AddItem List1.List(i)
Next