Format 0.0000 funzt nicht

ich habe versucht eine Zahl (3,33) mit Format #0.0000 zu formatieren. Als Ergebnis erhalte ich statt 3,3300 33300,0000. Wie kommt das?

Mein Code

A = Range("C26").Text 'A = 2.38 - 3.33
A = VBA.Right(A, 4) 'A = 3.33
A = A / 100 'A = 3,33
A = Format(A, "0.0000") 'A = ????

Danke für eure Hilfe.

Sebastian