Optional argument with default value

[bereb]

Hello, Hallo, Bonjour

Optional argument with default value seems to not work
AutoRedraw = True
Dim k%

Politesse("Dupont")
Politesse("Durand", "Madame")
Politesse("Duval", "Mademoiselle")

KeyGet k
End

Proc Politesse(nom As String, Optional titre As String = "Monsieur")
   Print "Veuillez agréer, "; titre; " "; nom; ", mes salutations distinguées."
EndProc

Error message : Optional=, only with simple numerics

Why only "numerics" for optional parameters ?
How to bypass (or solve) the problem in this case ?

[bereb]

I'll try to reply to myself with this possible solution, using ParamArray, but it's not so elegant ...
(really sorry for my english )

AutoRedraw = True
Dim k%

Politesse("Dupont")
Politesse("Durand", "Madame")
Politesse("Duval", "Mademoiselle")

KeyGet k
End

Proc Politesse(nom As String, ParamArray t())
 Local String titre = Iif(UBound(t) < 0, "Monsieur", t(0))
 Print "Veuillez agréer, "; titre; " "; nom; ", mes salutations distinguées."
EndProc