modifier les paramètres regionaux

bonsoir à tous, bonsoir forum
je veux demander à l'utilisateur de changer la virgule en point
si les paramètres sont une vigule...

J'écris :

Sub Params()
If Application.International(xlDecimalSeparator) = "." Then
Sheets("Feuil1").Activate
Else

MsgBox Application.International(xlDecimalSeparator)
MsgBox "Changer les paramètres régionaux de , en . ", vbOKOnly
End If
End Sub

...mais je n'arrive pas à supprimer ou à modifier le texte du premier message..

quelqu'un peut il m'aider ???

merci d'avance
albert