VbNet 1----Programacion en Consola----Condicion If

hallar el valor total de la venta de un producto ingresando el nombre del producto y la cantidad a comprar, si es cocina su valor es 3500, si es lavadora su valor es  2800 , si es radio  su valor es 1900, si es televisor su valor es 3900. si la venta pasa de los 5000 soles se la hara un descuento del 2 %

Module Module1
    Sub Main()
        Dim pro As String
        Dim can, vb, des, vt As Double
        Console.Write("ingrese producto :")
        pro = Console.ReadLine
        Console.Write("ingrese cantidad :")
        can = Console.ReadLine
        If pro = "cocinas" Then
            vb = 3500 * can
        ElseIf pro = "lavadoras" Then
            vb = 2800 * can
        ElseIf pro = "radio" Then
            vb = 1900 * can
        ElseIf pro = "television" Then
            vb = 3900 * can
        Else
            vb = 0
        End If
        If vb > 5000 Then
            des = vb * 0.02
        Else
            des = 0
        End If
        vt = vb - des
        Console.WriteLine("la venta basica es :" & vb)
        Console.WriteLine("el descuento es :" & des)
        Console.Write("la venta total es :" & vt)
        Console.Read()
    End Sub
End Module