Bonjour à tous et Joyeux Noël avec très peu de retard!

Je souhaite convertir une chaîne, comme par exemple "7.1250", en single.
J'ai donc écrit:

Dim X_Sng As Single
X_Sng = CSng("7.1250")
MsgBox(X_Sng)

J'obtiens 71250.

Je perds le point.
Pourquoi?
Et lorsque je tente de faire des calculs avec cette variable, ils sont évidemment faux.

Merci pour votre aide.