Dispatcher.Invoke

Dim folderName As String = Dispatcher.Invoke(DispatcherPriority.Normal, New Func(Of String)(Function() txtFolderName.Text))

Dispatcher.Invoke(DispatcherPriority.Normal, New Action(Sub() lblProgress.Content = i & " / " & BackupPhotos.Count))