un'idea grezza potrebbe essere questa:
codice:
Private Sub Text1_LostFocus()
Dim set_gg As String
Dim set_mm As String
Dim set_yyyy As String
Dim set_date As String

Text1.Text = Replace(Text1.Text, " ", "")
set_gg = (Mid(Text1.Text, 1, 2))
set_mm = (Mid(Text1.Text, 3, 2))
set_yyyy = (Mid(Text1.Text, 5, 4))
set_date = set_gg & "/" & set_mm & "/" & set_yyyy
set_date = Format(set_date, "dd/mm/yyyy")
MsgBox (set_date)

End Sub
ps. potresti anke utilizzare il componente MaskEdBox1 di microsoft.