時間のかかる処理を、バックグランドで処理させようとしています。

For Each f As String In files

    Dim dir As String = IO.Path.GetDirectoryName(f)

    Dim file As String = IO.Path.GetFileName(f)

    Dim shell As New Shell

    Dim fldr As Folder = shell.NameSpace(dir)

    Dim item As FolderItem = fldr.ParseName(file)

    Dim artist As String = StrConv(fldr.GetDetailsOf(item, 13), VbStrConv.Narrow)

    Dim title As String = StrConv(fldr.GetDetailsOf(item, 21), VbStrConv.Narrow)

    Dim cdTitle As String = StrConv(fldr.GetDetailsOf(item, 14), VbStrConv.Narrow)

    data.Add(f & "," & artist & "," & title & "," & cdTitle)

Next

の部分に来ると
「ソースは利用できません。
……
TargetInvocationExceptionはハンドルされませんでした。
型 'System.Reflection.TargetInvocationException' のハンドルされていない例外が
mscorlib.dll で発生しました。」
となって目的を達せられないでいます。
どういうことなのか教えていただけないでしょうか。