Add a handle errors

Public Shared Function CreateHyperLink(ByVal sURI As String, ByVal sDescription As String, ByVal ClickMethod As EventHandler(Of System.Windows.RoutedEventArgs)) As Hyperlink
     Dim hyper As New Hyperlink()
     hyper.Inlines.Add(sDescription)
     hyper.NavigateUri = New System.Uri(sURI)
     AddHandler hyper.Click, ClickMethod
     Return hyper
 End Function

Error:

Value of type 'System.EventHandler (Of System.Windows.RoutedEventArgs)' cannot be converted to 'System.Windows.RoutedEventHandler'