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

mostrar el sueldo de un empleado por su cargo y categoria, si es gerente , si su categoria es "a" su sueldo será 2000 soles si su categoría es "b" su seldo será 1500.Si el cargo es obreo y su catagoría es "a"  su sueldo será 1000 soles y si su categoría es "b" su sueldo será 1500 soles

Module Module1
    Sub Main()
        Dim car, cat As String
        Dim sue As Double
        Console.Write("Ingrese Cargo:")
        car = Console.ReadLine
        Console.Write("Ingrese Categoria:")
        cat = Console.ReadLine
        If car = "gerente" And cat = "a" Then
            sue = 2000
        ElseIf car = "gerente" And cat = "b" Then
            sue = 1500
        ElseIf car = "obrero" And cat = "a" Then
            sue = 1000
        ElseIf car = "obrero" And cat = "b" Then
            sue = 1500
        End If
        Console.Write("Su sueldo es :" & sue)
        Console.Read()
    End Sub
End Module