[SOLUCIONADO] Como se extraen caracteres de dos txtboxs y pasarlos a otro?? (substring)

[TecZr]

Hola, como están?

Como verán no soy experto en el mundo de la programación, llevo apenas unos meses. Alomejor hago una pregunta muy fácil pero yo no he podido solucionarlo...

Estoy desarrollando una aplicación en la cuál capturo clientes, el primer campo a llenar es el FOLIO. Lo que necesito saber es como generar el folio automático con la fecha actual y las primeras letras del nombre y apellido del cliente... Mientras vaya escribiendo el nombre y apellidos se vaya llenando el campo folio...

Ejemplo, si ingreso los siguientes datos hoy 21 de abril 2015:

txtNombre: Juan
txtApellidoPaterno: Ramírez
en el textbox folio deberá aparecer:
txtFolio: 210415-ramju

Si mañana ingreso otros clientes, sería 22 de abril 2015

txtNombre: Antonio
txtApellidoPaterno: Landeros
en el textbox folio deberá aparecer:
txtFolio: 220415-lanan

He leído que debo usar el substring:

Código:

txtFolio.Text = 
txtNombre.Text.Substring(0, 2);

Código:

textFolio.Text = 
txtApellidoPaterno.Text.Substring(0, 4);

Al cargar formulario en el campo folio me aparece la fecha como necesito usando el siguiente codigo:

Código:

txtFolio.Text = Format(CDate(Date.Now), "ddMMyy");

Lo que no puedo hacer es que al escribir nombre y apellido, se unan a la fecha de hoy ...
Espero haberme explicado, y gracias por adelantado!

[TecZr]

Ya lo solucioné,

les dejo el código, a mi ya me funciona bien pero no se si vaya a tener errores al momento de guardar en la base de datos.... por favor si pueden ayudarme a revisar el código ....

Código vb:

Private Sub pacientes_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        txtFolio.Text = Format(CDate(Date.Now), "ddMMyy")
    End Sub
 
    Private Sub txtNombre_TextChanged(sender As Object, e As EventArgs) Handles txtNombre.TextChanged
        Try
            txtFolio.Text = Format(CDate(Date.Now), "ddMMyy") + txtNombre.Text.Substring(0, 2) + txtApellidoPaterno.Text.Substring(0, 3)
        Catch ex As Exception
 
        End Try
    End Sub
 
    Private Sub txtApellidoPaterno_TextChanged(sender As Object, e As EventArgs) Handles txtApellidoPaterno.TextChanged
        Try
            txtFolio.Text = Format(CDate(Date.Now), "ddMMyy") + txtNombre.Text.Substring(0, 2) + txtApellidoPaterno.Text.Substring(0, 3)
        Catch ex As Exception
 
        End Try
    End Sub
 

Lo que hace este codigo es que al cargar el form, aparece en el textbox folio la fecha sin guiones ni diagonales (210415), y al ingresar nombre y apellido del paciente, automáticamente se genera el folio con las primeras letras:

ejemplo:
txtNombre: Juan
txtApellidoPaterno: Ramírez
en el textbox folio deberá aparecer:
txtFolio: 210415ramju

Espero que a alguien le sirva de ayuda en un futuro