Imports Office = Microsoft.Office.Core
Imports Word = Microsoft.Office.Interop.Word


#Region " Read me for Add-in installation and setup information. "
' When run, the Add-in wizard prepared the registry for the Add-in.
' At a later time, if the Add-in becomes unavailable for reasons such as:
' 1) You moved this project to a computer other than which is was originally created on.
' 2) You chose 'Yes' when presented with a message asking if you wish to remove the Add-in.
' 3) Registry corruption.
' you will need to re-register the Add-in by building the BackstageCOMAddin4Setup project,
' right click the project in the Solution Explorer, then choose install.
#End Region

Public Class Connect

Implements Extensibility.IDTExtensibility2, Office.IRibbonExtensibility

Private applicationObject As Word.Application
Private addInInstance As Object

Public Sub OnBeginShutdown(ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnBeginShutdown
End Sub

Public Sub OnAddInsUpdate(ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnAddInsUpdate
End Sub

Public Sub OnStartupComplete(ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnStartupComplete
End Sub

Public Sub OnDisconnection(ByVal RemoveMode As Extensibility.ext_DisconnectMode, ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnDisconnection
End Sub

Public Sub OnConnection(ByVal application As Object, ByVal connectMode As Extensibility.ext_ConnectMode, ByVal addInInst As Object, ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnConnection
applicationObject = application
addInInstance = addInInst
End Sub

End Class
Public Function GetCustomUI(ByVal RibbonID As String) As String Implements Microsoft.Office.Core.IRibbonExtensibility.GetCustomUI
Return BackStageCOMAddin.My.Resources.customUI14
End Function

Sub OnAction(ByVal control As Office.IRibbonControl)
MessageBox.Show("Today's date is " & Date.Now.ToShortDateString())
End Sub

These are the erros:

Error 1 Class 'Connect' must implement 'Function GetCustomUI(RibbonID As String) As String' for interface 'Microsoft.Office.Core.IRibbonExtensibility'. c:\documents and settings\administrator\my documents\visual studio 2010\Projects\BackstageCOMAddin4\BackstageCOMAddin4\Connect.vb 17 49 BackstageCOMAddin4
Error 3 Statement is not valid in a namespace. c:\documents and settings\administrator\my documents\visual studio 2010\Projects\BackstageCOMAddin4\BackstageCOMAddin4\Connect.vb 40 1 BackstageCOMAddin4

Error 4 Statement is not valid in a namespace. c:\documents and settings\administrator\my documents\visual studio 2010\Projects\BackstageCOMAddin4\BackstageCOMAddin4\Connect.vb 44 1 BackstageCOMAddin4

I am following the instrucitons exactly as show from this link:

http://msdn.microsoft.com/en-us/library/ff936212.aspx

Why am I getting these errors?

Thanks in advance for any and all help.

Also does anyone have any better instructions for creating a Add In for MS Project 2010?

Kurt