Openremotebasekey exceptions how to time and then go to next computer in for each loop

For Each sel In picker.SelectedObjects
                       Thread.Sleep(5)
                       Try
                           Dim source1 As New CancellationTokenSource
                           Dim token As CancellationToken = source1.Token

                           Dim T20 As Task = Task.Factory.StartNew(Function() getping((sel.Name), token)) 'Function that uses My.Computer.Network.Ping (this ping method resolves the computer in DNS and Ping it) and ping.send (to return IP Address)
                           T20.Wait(60)
                           If T20.Status = TaskStatus.Running Then
                               source1.Cancel()
                               My.Computer.FileSystem.WriteAllText(Dell & "\McAfeeDATeNumFailed.txt", sel.Name & " Ping timed out.  The task was disposed of at " & ex_time & "." & vbCrLf & vbCrLf, True)
                               Continue For
                           End If

                           Dim source2 As New CancellationTokenSource
                           Dim token2 As CancellationToken = source2.Token
                           Dim T21 As Task = Task.Factory.StartNew(Function() comsys((sel.Name), token2)) 'WMI Function
                           T21.Wait(500)
                           If T21.Status = TaskStatus.Running Then
                               source2.Cancel()
                               My.Computer.FileSystem.WriteAllText(Dell & "\McAfeeDATeNumFailed.txt", sel.Name & " RPC error.  The task was disposed of at " & ex_time & "." & vbCrLf & vbCrLf, True)
                           End If

                           Dim source3 As New CancellationTokenSource
                           Dim token3 As CancellationToken = source3.Token
                           Dim T22 As Task = Task.Factory.StartNew(Function() getregvalues((sel.Name), token3)) 'Function that uses RegistryKey.OpenRemoteBaseKey to get remote registry value
                           T22.Wait(600)
                           If T22.Status = TaskStatus.Running Then
                               source3.Cancel()
                               My.Computer.FileSystem.WriteAllText(Dell & "\McAfeeDATeNumFailed.txt", sel.Name & " Error retrieving registry value.  The task was disposed of at " & ex_time & "." & vbCrLf & vbCrLf, True)
                           End If
                           IPAddr = reply.Address.ToString()
                           objExcel.Cells(y, 1) = sel.Name
                           objExcel.Cells(y, 2) = IPAddr
                           objExcel.Cells(y, 3) = commodel
                           objExcel.Cells(y, 4) = comuser
                           objExcel.Cells(y, 5) = "DAT Version Number: " & mAV
                           objExcel.Cells(y, 6) = "DAT Date: " & mAD
                           y = y + 1
                           IPAddr = Nothing
                           reply = Nothing
                           commodel = Nothing
                           comuser = Nothing
                           sel = Nothing
                           Thread.Sleep(5)
                       Catch ex As Exception

                       End Try