Property let optional args

Property Get sValue(Optional m As modes = mHex) As String
        'do stuff
end property

Property Let sValue(Optional m As modes = mHex, ByVal s As String)
        'do stuff
end property

x.sValue = "1234"
x.sValue(mHex) = "1234"
msgbox x.sValue
msgbox x.sValue(mHex)