Standard Message box to Stylish box

[kamranyd]

Hi to all, I have these codes which shows error if the value not found, if it found it will open pdf file taking value from cell, is there any way to make this standard message box to stylish box where text has color and are bold and I can add pictures. I search on google about userform to create fancy message boxes but didn't get the proper method to get these codes in userform and work same like they work now.

Sub quot_PDF_File()
    
    Dim FileNameRef As String, myPath As String, Prompt As String

    FileNameRef = Application.WorksheetFunction.Text(Range("B10"), "0000")
       myPath = "D:\"

    On Error Resume Next
    ThisWorkbook.FollowHyperlink myPath & FileNameRef
    
        If Err.Number <> 0 Then
    Prompt = "Quotation Number [-]> " & FileNameRef & ".pdf <[-]" & vbNewLine & vbNewLine & _
    "NOT FOUND IN BELOW LOCATION" & vbNewLine & vbNewLine & _
    "Click to explore folder location" & vbNewLine & vbNewLine & "D:\"
  
    Const TITLE = "PDF file Search & Open"
    Const BUTTONS = vbExclamation
            
    Dim lRet As VbMsgBoxResult
    Dim sLinksArray(0 To 0, 1) As String
  
    sLinksArray(0, 0) = "D:\":            sLinksArray(0, 1) = "D:\"
    
    lRet = HyperlinkMsgBox(Prompt, sLinksArray, BUTTONS, TITLE)
  End If
End Sub

 

[Peter_SSs]

Perhaps this could be of interest?
Your Typical VBA Standard MsgBox Behaving Like A TimeOut PopUp With Added Formatting And Some Cool Animation !

 

[kamranyd]

Perhaps this could be of interest?
Your Typical VBA Standard MsgBox Behaving Like A TimeOut PopUp With Added Formatting And Some Cool Animation !

I saw this post before, it is no help. please any other suggestion, how to design userform with my given codes in good stylish message box