Fallito en Visual Basic.Net 2008

Hola,

como algunos de aqui ya saben estoy haciendo un curso de programacion .net y hoy desde hace unos dias estoy trabao en un ejercicio, os comento:

-El ejercicio es del tema de clases y objetos. Lo que me piden es que se visualize en pantalla el algunos datos de un empleado, exigen lo siguiente:

-un nombre
-un departamento
-una categoria
-un salario

Tonces lo que yo tengo son dos partes divididas, una clase que almazena los atributos que digo arriba y la otra parte el Sub Main() donde invoco los objetos de dicha clase dandole los valores (Mario, Ventas, Becario, 1200€):

'Atributos
    Private nombre, departamento, categoria As String
    Private salario As Double

 'Metodos para introducir datos

Public Sub New()
End Sub

Public Sub New(ByVal nom As String, ByVal dept As String, ByVal cat As String, ByVal sala As Double)
    LeerNombre(nom)
    LeerDept(dept)
    LeerCat(cat)
    LeerSala(sala)
End Sub

Public Sub LeerNombre(ByVal nom As String)
    If nom.Length = 0 Then
        System.Console.WriteLine("Error: cadena vacía")
    Else
        nombre = nom
    End If
End Sub

Public Sub LeerDept(ByVal dept As String)
    If dept.Length = 0 Then
        System.Console.WriteLine("Error: cadena vacía")
    Else
        departamento = dept
    End If
End Sub

Public Sub LeerCat(ByVal cat As String)
    If cat.Length = 0 Then
        System.Console.WriteLine("Error: cadena vacía")
    Else
        categoria = cat
    End If
End Sub

Public Sub LeerSala(ByVal sala As Double)
    If sala <= 0 Then
        System.Console.WriteLine("Error: salario negativo")
    Else
        salario = sala
    End If
End Sub

Public Function DevolverNombre() As String
    Return nombre
End Function
Public Function DevolverDepartamento() As String
    Return departamento
End Function
Public Function DevolverCategoria() As String
    Return categoria
End Function
Public Function DevolverSala() As Double
    Return salario
End Function

End Class

Y el modulo principal:

Module Triger

Sub Main()
    Dim objeto01 As Empleado = New Empleado()
    objeto01.LeerNombre("Xavi Alonso")
    objeto01.LeerDept("Ventas")
    objeto01.LeerCat("Becario")
    objeto01.LeerSala(-10)

    Dim objeto02 As Empleado = New Empleado()
    objeto02.LeerNombre("Leo Messi")
    objeto02.LeerDept("Ventas")
    objeto02.LeerCat("Becario")
    objeto02.LeerSala(555)

    System.Console.WriteLine(objeto01.DevolverNombre())       'DevolverNombre es un mensaje que llama al metodo LeerNombre (abajo igual)
    System.Console.WriteLine(objeto01.DevolverDepartamento())
    System.Console.WriteLine(objeto01.DevolverCategoria())
    System.Console.WriteLine(objeto01.DevolverSala())
End Sub

End Module

Lo que ocurre es que en la parte donde debe decirme el salario, cuando le doy un valor negativo en vez de darme un mensaje de error como describo en el codigo me da 0, si es positivo no hay problema, lo muestra y Ok pero si es negativo FAIL

Perdon por el toston xD