vbCritical
16
Critical message
vbQuestion
32
Warning query
vbExclamation
48
Warning message
vbInformation
64
Information message

msgbox "Hello", vbExclamation + vbCritical

If value < 16 Then
    NoIcon
ElseIf value >=16 && value <32 Then
   vbCritical
ElseIf....

'Only allow legal button combinations to be set, one choice from each group
'These bit constants are defined in System.Windows.Forms.MessageBox
'Low-order 4 bits (0x000f), legal values: 0, 1, 2, 3, 4, 5
'     next 4 bits (0x00f0), legal values: 0, &H10, &H20, &H30, &H40
'     next 4 bits (0x0f00), legal values: 0, &H100, &H200
If ((Buttons And &HFI) > MsgBoxStyle.RetryCancel) OrElse ((Buttons And &HF0I) > MsgBoxStyle.Information) _
    OrElse ((Buttons And &HF00I) > MsgBoxStyle.DefaultButton3) Then

Private Function ConvertMsgBoxStyleToErrorSeverity(ByVal style As VbMsgBoxStyle)

Public Sub LogError(moduleName As String, procName As String, Optional severity As ErrorSeverity = Critical, Optional OptionalText As String = vbNullString)

011110000 == 240 ==  f0 == constant for pulling out icon
000010000 ==  16 ==  10 == vbCritical
000100000 ==  32 ==  20 == vbQuestion
000110000 ==  48 ==  30 == vbExclamation
001000000 ==  64 ==  40 == vbInformation

000000001 ==   1 ==   1 == vbOkCancel
100000000 == 256 == 100 == vbDefaultButton2
000010000 ==  16 ==  10 == vbCritical

100010001 == 273 == 111 == vbOKCancel + vbCritical + vbDefaultButton2
011110000 == 240 ==  f0 == constant for pulling out icon
------------------------Bit-Wise AND

000010000 ==  16 ==  10 == vbCritical
000100000 ==  32 ==  20 == vbQuestion
000110000 ==  48 ==  30 == vbExclamation
001000000 ==  64 ==  40 == vbInformation
------------------------Bit-Wise OR
011110000 == 240 ==  f0 == constant for pulling out icon

Private Function GetVbIconType(ByVal style As VbMsgBoxStyle) As Integer
    ' There's a lot of bit shifting magic here.
    ' The Icon Type is retrieved by OR-ing the valid values together.

    'Binary       Dec    Hex    Description
    '
    '000010000 ==  16 ==  10 == vbCritical
    '000100000 ==  32 ==  20 == vbQuestion
    '000110000 ==  48 ==  30 == vbExclamation
    '001000000 ==  64 ==  40 == vbInformation
    '------------------------Bit-Wise OR
    '011110000 == 240 ==  f0 == constant for pulling out icon

With New ADODB.Command
    Set .ActiveConnection = bimic.Connection
    .CommandType = adCmdText
    .CommandText = sql

    .Parameters.Refresh

    .Parameters(0).value = moduleName
    .Parameters(1).value = procName
    .Parameters(2).value = severity
    .Parameters(3).value = Err.Number
    .Parameters(4).value = Err.Source
    .Parameters(5).value = Err.Description
    .Parameters(6).value = IIf((OptionalText = vbNullString), Null, OptionalText)
    .Parameters(7).value = Environ("UserName")