Al final lo que hice probando y probando fué lo siguiente, no se si lo más acertado pero hace lo que quería :P
Código:
ObjectosList = ListView1.Items.Count - 1
Dim Rutas(ObjectosList) As String
Dim Intevarlo(ObjectosList) As Integer
Dim i As Integer
Dim Nombre As String
Dim Tiempo As Integer
For i = 0 To ObjectosList
Nombre = ListView1.Items(i).SubItems(2).Text
Tiempo = ListView1.Items(i).SubItems(3).Text
Intevarlo(i) = Tiempo
Rutas(i) = Nombre
Try
Shell(Rutas(i), AppWinStyle.NormalFocus, True, Intevarlo(i))
Catch ex As Exception
MsgBox("La ruta: " & "'" & Rutas(i) & "'" & ", no existe, o el archivo que se esta intentando abrir no es un ejecutable")
End Try
Next