Un 0 devant les chiffres de 1 à 9 seulement

Lors de la récupération d'une cellule, j'aimerais avoir 2 chiffres dans mon TextBox même si dans ma cellule il n'y en a qu'un. Bref, je voudrais avoir un 0 devant les chiffres de 1 à 9, mais pas pour les suivants. Est-ce que quelqu'un pourrait m'aider? Voilà ce que j'ai :

Private Sub UserForm_initialize()
TextBox1.Text = Range("A1").Value
End Sub