Bonjour je comprend pas pourquoi le code qui suis se rend jusqu'au pas bon

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim Dbl1 As Double = 0
                            Dim Dbl2 As Double = 0
                            Dim rep As Double = (Dbl2 * 100) / Dbl1
                            Console.WriteLine(rep)
                            If Not rep = Double.PositiveInfinity Then
                                If Not rep = Double.NegativeInfinity Then
                                    If IsNumeric(rep) Then
                                        Console.WriteLine("Pas bon")
                                    End If
                                End If
                            End If
merci de votre aide