Ribbonbar & RoutedCommand problem

Dim MyCommand As Windows.Input.RoutedCommand = Nothing

    Public Property Command() As System.Windows.Input.ICommand
      Get
        On Error Resume Next
        Return MyCommand
      End Get
      Set(ByVal value As System.Windows.Input.ICommand)
        On Error Resume Next
        MyCommand = value
        AddHandler MyCommand.CanExecuteChanged, AddressOf CanExecuteChangedEvent
      End Set
    End Property
    Private Sub CanExecuteChangedEvent(ByVal sender As Object, ByVal e As System.EventArgs)
      On Error Resume Next
      If MyCommand.CanExecute(Nothing, Me) Then
        Me.IsEnabled = True
      Else
        Me.IsEnabled = False
      End If
    End Sub