Module Module1

    Sub Main()

        Console.WriteLine("ConsoleVBPOC")

        Dim p As Person
        p = New Person()

        p.Name = "Test"

        Console.ReadLine()
    End Sub

End Module

Partial Class Person
    Partial Private Sub OnNameChanging(ByVal name As String)
    End Sub

    Partial Private Sub OnNameChanged()
    End Sub

    Dim _name As String

    Property Name() As String
        Get
            Return _name
        End Get
        Set(ByVal value As String)
            OnNameChanging(value)
            _name = value
            OnNameChanged()
        End Set
    End Property

End Class

Class Person
    Private Sub OnNameChanging(ByVal name As String)
        Console.WriteLine("OnNameChanging(ByVal name As String)")
        Console.WriteLine(name)
    End Sub

    Private Sub OnNameChanged()
        Console.WriteLine("OnNameChanged()")
    End Sub
End Class