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

[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