Agregar icono a message box

Prueba este codigo:

Private Sub Workbook_Open()
Dim wrnmsg
wrnmsg = MsgBox("Este archivo modifica los siguientes
archivos:" + Chr(13) + "Ppto" + Chr(13) + "Si cuenta con
los permisos requeridos abralos", vbOK +
vbInformation, "AVISO")
If wrnmsg = vbOK Then
Exit Sub
End If
End Sub

Ahora si se puede personalizar los iconos, la verdad hasta
donde se yo no se puede no se si alguien del foro sabes?

Saludos.

Hola a todos

Tengo el siguiente codigo

Private Sub Workbook_Open()
Dim wrnmsg
wrnmsg = MsgBox("Este archivo modifica los siguientes
archivos:" + Chr(13) + "Ppto" + Chr(13) + "Si cuenta con
los permisos requeridos abralos", vbOK)
If wrnmsg = vbOK Then
Exit Sub
End If
End Sub
Necesito saber como y donde le debo agregar comandos para
poder agregar iconos. Además, es posible agregar iconos
personalizados???

Muchas gracias
.