Formatação de TextBox em padrão de Horas ou Texto

Ai galera !!!!

Vai aqui mais uma Sub que de repente pode ajudar em suas atividades!!!!

esta sub formata um texto de formulário em padrão de hora ou data...

Private Sub TextBox1_Change()

If Len(TextBox1) = 2 Or Len(TextBox1) = 5 Then
    TextBox1.Text = TextBox1.Text & "/"
    SendKeys "{End}", True
                                                                End If
End Sub

Neste caso estou colocando barra para formatar em Data mas caso queria usar para formatar em horas só trocar a "/" por ":" .

Até mais......