is not loading as a COM ADD-IN in outlook 2003

Option Explicit On 

Imports System.Runtime.InteropServices
Imports System.ComponentModel

'Add-in Express Add-in Module
<GuidAttribute("2F9C3A35-FE54-4838-970E-D3460DD339E1"), ProgIdAttribute("DMCRM.AddinModule"), RunInstaller(True)> _
Public Class AddinModule
    Inherits AddinExpress.MSO.ADXAddinModule
    Friend WithEvents Faxes As AddinExpress.MSO.ADXCommandBarPopup
    Friend WithEvents Fax_BW As AddinExpress.MSO.ADXCommandBarButton
    Friend WithEvents Fax_GreyScale_16 As AddinExpress.MSO.ADXCommandBarButton
    Friend WithEvents Fax_GreyScale_256 As AddinExpress.MSO.ADXCommandBarButton
    Friend WithEvents Fax_Colour_4 As AddinExpress.MSO.ADXCommandBarButton
    Friend WithEvents Fax_Colour_8 As AddinExpress.MSO.ADXCommandBarButton
    Friend WithEvents Fax_Colour_24 As AddinExpress.MSO.ADXCommandBarButton


#Region " Component Designer generated code. "
    'Required by designer
    Private components As System.ComponentModel.IContainer

    'Required by designer - do not modify
    'the following method
    Friend WithEvents Fax_DPI As AddinExpress.MSO.ADXCommandBarComboBox
    Friend WithEvents AdxDMCRM As AddinExpress.MSO.ADXCommandBar
    Friend WithEvents Adxtest As AddinExpress.MSO.ADXCommandBarButton
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Me.AdxDMCRM = New AddinExpress.MSO.ADXCommandBar(Me.components)
        Me.Faxes = New AddinExpress.MSO.ADXCommandBarPopup(Me.components)
        Me.Fax_BW = New AddinExpress.MSO.ADXCommandBarButton(Me.components)
        Me.Fax_GreyScale_16 = New AddinExpress.MSO.ADXCommandBarButton(Me.components)
        Me.Fax_GreyScale_256 = New AddinExpress.MSO.ADXCommandBarButton(Me.components)
        Me.Fax_Colour_4 = New AddinExpress.MSO.ADXCommandBarButton(Me.components)
        Me.Fax_Colour_8 = New AddinExpress.MSO.ADXCommandBarButton(Me.components)
        Me.Fax_Colour_24 = New AddinExpress.MSO.ADXCommandBarButton(Me.components)
        Me.Fax_DPI = New AddinExpress.MSO.ADXCommandBarComboBox(Me.components)
        Me.Adxtest = New AddinExpress.MSO.ADXCommandBarButton(Me.components)
        '
        'AdxDMCRM
        '
        Me.AdxDMCRM.CommandBarName = "DMCRM"
        Me.AdxDMCRM.CommandBarTag = "78976be9-1a9c-4ce0-b41c-727b25d32a79"
        Me.AdxDMCRM.Controls.Add(Me.Faxes)
        Me.AdxDMCRM.Controls.Add(Me.Adxtest)
        Me.AdxDMCRM.Position = AddinExpress.MSO.ADXMsoBarPosition.adxMsoBarTop
        Me.AdxDMCRM.RowIndex = 1
        Me.AdxDMCRM.SupportedApps = AddinExpress.MSO.ADXOfficeHostApp.ohaOutlook
        Me.AdxDMCRM.UpdateCounter = 22
        '
        'Faxes
        '
        Me.Faxes.BeginGroup = True
        Me.Faxes.Caption = "Import the Faxes"
        Me.Faxes.Controls.Add(Me.Fax_BW)
        Me.Faxes.Controls.Add(Me.Fax_GreyScale_16)
        Me.Faxes.Controls.Add(Me.Fax_GreyScale_256)
        Me.Faxes.Controls.Add(Me.Fax_Colour_4)
        Me.Faxes.Controls.Add(Me.Fax_Colour_8)
        Me.Faxes.Controls.Add(Me.Fax_Colour_24)
        Me.Faxes.Controls.Add(Me.Fax_DPI)
        Me.Faxes.ControlTag = "4076b9a1-22a1-4499-b4d6-713d94b521c6"
        Me.Faxes.DescriptionText = "Import the Faxes2"
        Me.Faxes.UpdateCounter = 10
        '
        'Fax_BW
        '
        Me.Fax_BW.Caption = "Black && White"
        Me.Fax_BW.ControlTag = "325e24fc-6f8b-45e9-ae5f-795d44be81ee"
        Me.Fax_BW.DescriptionText = "Scan a Fax from the system in Black & White"
        Me.Fax_BW.ImageTransparentColor = System.Drawing.Color.Transparent
        Me.Fax_BW.UpdateCounter = 12
        '
        'Fax_GreyScale_16
        '
        Me.Fax_GreyScale_16.Caption = "GreyScale 4bit"
        Me.Fax_GreyScale_16.ControlTag = "466838d1-8e99-48e6-ab99-61eb901f5414"
        Me.Fax_GreyScale_16.DescriptionText = "Scan a Fax from the system in GreyScale with 16 shades"
        Me.Fax_GreyScale_16.ImageTransparentColor = System.Drawing.Color.Transparent
        Me.Fax_GreyScale_16.UpdateCounter = 9
        '
        'Fax_GreyScale_256
        '
        Me.Fax_GreyScale_256.Caption = "GreyScale 8bit"
        Me.Fax_GreyScale_256.ControlTag = "e5257cb8-f350-4cb2-9c96-dd52370a5777"
        Me.Fax_GreyScale_256.DescriptionText = "Scan a Fax from the system in GreyScale with 256 shades"
        Me.Fax_GreyScale_256.ImageTransparentColor = System.Drawing.Color.Transparent
        Me.Fax_GreyScale_256.UpdateCounter = 11
        '
        'Fax_Colour_4
        '
        Me.Fax_Colour_4.Caption = "Colour 4bit"
        Me.Fax_Colour_4.ControlTag = "66a4a871-6b68-4616-8e2b-e8c0c50d8467"
        Me.Fax_Colour_4.DescriptionText = "Scan a Fax from the system in Colour with 16 shades"
        Me.Fax_Colour_4.ImageTransparentColor = System.Drawing.Color.Transparent
        Me.Fax_Colour_4.UpdateCounter = 9
        '
        'Fax_Colour_8
        '
        Me.Fax_Colour_8.Caption = "Colour 8bit"
        Me.Fax_Colour_8.ControlTag = "43be9c92-1357-478a-a8f3-2d0ce4f57505"
        Me.Fax_Colour_8.DescriptionText = "Scan a Fax from the system in Colour with 256 shades"
        Me.Fax_Colour_8.ImageTransparentColor = System.Drawing.Color.Transparent
        Me.Fax_Colour_8.UpdateCounter = 6
        '
        'Fax_Colour_24
        '
        Me.Fax_Colour_24.Caption = "Colour 24bit"
        Me.Fax_Colour_24.ControlTag = "73bcec98-9552-4e91-8a3b-9c27b22aea5a"
        Me.Fax_Colour_24.DescriptionText = "Scan a Fax from the system in Colour with 16777216 shades"
        Me.Fax_Colour_24.ImageTransparentColor = System.Drawing.Color.Transparent
        Me.Fax_Colour_24.UpdateCounter = 16
        '
        'Fax_DPI
        '
        Me.Fax_DPI.Caption = "Fax DPI"
        Me.Fax_DPI.ControlTag = "f60e146c-bc23-49c8-bf1a-1bfa16855c5b"
        Me.Fax_DPI.DescriptionText = "Fax DPI"
        Me.Fax_DPI.DropDownLines = 3
        Me.Fax_DPI.Items.AddRange(New String() {"100", "200", "240", "300", "400", "500"})
        Me.Fax_DPI.UpdateCounter = 7
        '
        'Adxtest
        '
        Me.Adxtest.Caption = "test"
        Me.Adxtest.ControlTag = "2696abd0-320f-44a3-bd15-73c9ace26ef7"
        Me.Adxtest.ImageTransparentColor = System.Drawing.Color.Transparent
        Me.Adxtest.TooltipText = "this open word"
        Me.Adxtest.UpdateCounter = 4
        '
        'AddinModule
        '
        Me.AddinName = "DMCRM"
        Me.ShimProgID = "DMCRMShim.Proxy"
        Me.SupportedApps = AddinExpress.MSO.ADXOfficeHostApp.ohaOutlook

    End Sub

#End Region

#Region " ADX automatic code "
    'Add-in Module Implementation
    Public Sub New()
        MyBase.New()

        'This call is required by the Component Designer
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Required by Add-in Express - do not modify
    'the methods within this region

    Public Overrides Function GetContainer() As System.ComponentModel.IContainer
        If components Is Nothing Then
            components = New System.ComponentModel.Container
        End If
        GetContainer = components
    End Function

    <ComRegisterFunctionAttribute()> _
    Public Shared Sub AddinRegister(ByVal t As Type)
        AddinExpress.MSO.ADXAddinModule.ADXRegister(t)
    End Sub

    <ComUnregisterFunctionAttribute()> _
    Public Shared Sub AddinUnregister(ByVal t As Type)
        AddinExpress.MSO.ADXAddinModule.ADXUnregister(t)
    End Sub

    Public Overrides Sub UninstallControls()
        MyBase.UninstallControls()
    End Sub

#End Region



    Private Sub Fax_BW_Click(ByVal sender As Object) Handles Fax_BW.Click
        Dim PID As Boolean
        Dim cmdline As String
        cmdline = """c:Program FilesPixel TranslationsQuickScanquickscn.exe"" /cmd commandlinefile=""" + cmddir + "Fax - BW.txt"" statusreport=""" + status_report_file + """"
        MsgBox(cmdline)
        cmdline = "c:WINDOWS
otepad.exe"
        '  PID = Shell(cmdline, AppWinStyle.NormalFocus, True, 600000)

        msgbox("test")

    End Sub



End Class