Public Sub RunMyMacro()
    On Error Resume Next
    DoCmd.RunMacro "mcsPrepare"
GeneralErrorHandler:
    If Err.Number <> 0 Then
        MsgBox "sd"
    End If
End Sub

        protected virtual void CallAccessMacro(string mdbPath, string macroName)
        {
            Access.Application oAccess = new Access.Application
            {
                Visible = true
            };
            oAccess.OpenCurrentDatabase(mdbPath);
            oAccess.DoCmd.RunMacro((macroName as Object), (1 as Object), (true as Object));
            oAccess.DoCmd.Quit(Access.AcQuitOption.acQuitSaveNone);
            Marshal.ReleaseComObject(oAccess);
            oAccess = null;
        }

Public Sub RunMyMacro()
    On Error Resume Go To GeneralErrorHandler:
    DoCmd.RunMacro "mcsPrepare"
GeneralErrorHandler:
    If Err.Number <> 0 Then
        MsgBox "sd"
    End If
End Sub