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

Ingresar categoria de empleado para saber su sueldo, si es "a" su sueldo es 3000, si es "b" su sueldo 2100, si es "c" su sueldo es 1000 , caso contario no tiene sueldo.

Module Module1
    Sub Main()
        Dim x As String
        Console.Write("ingrese categoria :")
        x = Console.ReadLine
        If x = "a" Then
            Console.Write("su sueldo es 3000")
        ElseIf x = "b" Then
            Console.Write("su sueldo es 2100")
        ElseIf x = "c" Then
            Console.Write("su sueldo es 1000")
        Else
            Console.Write("no tiene sueldo")
        End If
        Console.Read()
    End Sub
End Module