Найти ошибку - Visual Basic .NET

Формулировка задачи:

Не пойму где я накасячил ? Если программа работает EthDcrMiner64 то сравниваем время запуска , не совпадает перезапускам EthDcrMiner64 со своими параметрами ...

      
Dim readData = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Eth\IR", "HotTracking", Nothing)
 
        For Each currentprocesses As Process In Process.GetProcesses
 
            If currentprocesses.ProcessName = "EthDcrMiner64" Then
 
                Dim Pr As Process = Process.GetProcessesByName("EthDcrMiner64")(0)
 
                If Pr.StartTime.ToString() = readData Then
                Else
                    MsgBox(Pr.StartTime.ToString() & " - " & readData)
 
                    Process.GetProcessesByName("EthDcrMiner64")(0).Kill()
 
                    Dim ps = New ProcessStartInfo() With
                    {
                    .FileName = Pr.MainModule.FileName,
                    .Arguments = "-epool eu1.ethermine.org:4444 -ewal 0x4ee4e2f3abfd99f66738717fe1027d61e54fbcb1 -epsw x"
                    }
 
                    Process.Start(ps)
                    My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Eth\IR", "HotTracking", Pr.StartTime.ToString)
                End If
            End If
        Next

Решение задачи: «Найти ошибку»

textual
                            Листинг программы 
                        

                            Process.Start(ps)
Dim proc() As Process = Process.GetProcessesByName("EthDcrMiner64")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Eth\IR", "HotTracking", proc(0).StartTime.ToString)
                        