Can't set OL Importance to HIGH

Hey All,

I'm having some difficulty in a piece of code trying to set outlook email message to HIGH.

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strSubj = "My Subject"
With OutMail
        .Importance = olImportanceHigh
        .To = strSendto
        .Subject = strSubj
        If rngB Is Nothing Then
            .HTMLBody = RangetoHTML(rng)
        Else
            .HTMLBody = RangetoHTML(rngc)
        End If
        .Display
End With

Every time I run the macro, importance shows up as LOW!!!!

Don