Formate übernehmen

Ich habe eine Userform mit mehreren TextBoxen. Bei der Initialisierung der Userform steht dann u.a. die Zeile

TextBox1.Value = Cells(1, 1).Value

Damit steht dann beim Aufrufen der TextBox1 der Wert aus der Zelle A1 als Vorgabe. Nun besteht aber das Problem, daß in der Zelle A1 eine Nachkommastelle steht. Dies könnte ich ja noch wie folgt abfangen:

TextBox1.Value = Format(Cells(1, 1).Value, "#,##0.0")

Leider können sich aber die Formate in Zelle A1 ändern, z.B. mit zwei Nachkommastellen.
Deshalb suche ich eine Lösung, wie ich das Format aus der Zelle A1 auslesen kann und dann beim Init der Userform mitverarbeite.

Vielen Dank im Voraus.
Maik