Ok my question in the original msgbox function it has a parameter (Buttons as VbMsgBoxStyle = VbOKOnly) in this section when you select the buttons it shows a combo where you can select
= VbAbortRetryIgnore
= VbApplicationModal
= VbCritical
etc..

i trying to do a function in a module

Public Function Message(Description As String, etc..)
..xx..
..xx..
..xx..
End Function

In Description i want to show a combo like the msgbox that contains the strings

Error
Question
Information
Yes_No

so later i can save the string selected in a variable