'''
''' <summary>
''' エラートラップ用のユーザーエラー番号を取得します。
''' </summary>
''' <param name="error">エラー番号を<see cref="Long"/>で指定します。</param>
''' <returns>ユーザーエラー番号を<see cref="Long"/>で返します。</returns>
'''
Public Function GetUserErrorNo(error As Long)
  GetUserErrorNo = vbObjectError + error
End Function