VB .NET - Como Formatar um TextBox

Public Class Form1

    Private Sub txtTexto_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTexto.KeyPress

        If Len(txtTexto.Text) = 2 Or Len(txtTexto.Text) = 5 Then

            txtTexto.Text = txtTexto.Text & "/"

            txtTexto.SelectionStart = Len(txtTexto.Text) + 1           

        End If

    End Sub

    Private Sub txtTexto2_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTexto2.KeyPress

        If Len(txtTexto2.Text) = 2 Then

            txtTexto2.Text = txtTexto2.Text & ":"

            txtTexto2.SelectionStart = Len(txtTexto2.Text) + 1

        End If

    End Sub

End Class

Espero ter ajudado e att.