como formatar textos em textbox

disponibilizar as barras (no exemplo da data), diretamente no textbox.
Ex.: vou digitar os digitos do dia "14", e aparecerá a prímeira barra "/", depois os dois digitos do mês "01" e aparecerá a segunda barra, após isso, é só digitar os quatro digitos do ano "2011".


Neste exemplo, as barras aparecem na própria textbox e são exportadas para as célula de destino, porém se eu for digitar uma nova data, ela sobrepõe a digitada anteriormente:

Private Sub TextBox06_Change()
Select Case Len(TextBox06.Text)
Case Is = 2
TextBox06.Text = TextBox06.Text & "/"
Case Is = 5
TextBox06.Text = TextBox06.Text & "/"
Case Is = 10
TextBox07.SetFocus
Range("G5") = Me.TextBox06
End Select
End Sub


Já neste outro exemplo, as barras aparecem apenas na prórpia célula de destino, porém se eu for digitar uma nova data, ela não sobrepõe a digitada anteriormente, é inserida na próxima célula (ex.: se a célula B5, estiver preenchida, a informação é transportada para a célula B6:


Private Sub CommandButton1_Click()
With Sheets("Cadastro").Range("B" & ActiveSheet.Rows.Count).End(xlUp)
d = Left(TextBox06, 2) & "/" & Mid(TextBox06, 4, 2) & "/" & Right(TextBox06, 4)
TextBox06 = Format(d, "dd/mm/yyyy")
End With
TextBox06.Text = ""
Unload Me
MsgBox " Atualização realizada com sucesso!", vbOkOnli
End Sub