Visual Basic.NET - Consulta de caja

Hola amigos del foro, mi consulta es la siguiente ingreso en dos cajas distintas los nombres y apellidos, y al terminar de ingresar este último (apellidos) los junto en una sola caja de texto que esta invisible, con el siguiente código.
Protected Sub TXTAPELLIDOS_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TXTAPELLIDOS.TextChanged
Dim LARGOPOT, VARPOT As String
If TXTAPELLIDOS.Text.Length < 1 Then
MsgBox("Error, debe ingresar los Apellidos del Trabajador.", MsgBoxStyle.Information, "Sistema")
TXTAPELLIDOS.Focus()
Else
If TXTRUT.Enabled = False Then
TXTNACIMIENTO.Focus()
VARPOT = Trim(TXTPERSONAL.Text)
TXTPERSONAL = Trim(TXTNOMBRES.Text) + Space(1) + Trim(TXTAPELLIDOS.Text)
LARGOPOT = Len(LTrim$(VARPOT))
Else
VARPOT = Trim(TXTPERSONAL.Text)
TXTPERSONAL = Trim(TXTNOMBRES.Text) + Space(1) + Trim(TXTAPELLIDOS.Text)
LARGOPOT = Len(LTrim$(VARPOT))
TXTRUT.Focus()
End If
End If
End Sub
la linea en donde esta el error es TXTPERSONAL = Trim(TXTNOMBRES.Text) + Space(1) + Trim(TXTAPELLIDOS.Text)
LARGOPOT = Len(LTrim$(VARPOT))
me lo marca con error, no se en donde esta el problema, favor de ayudarme, desde ya muchas gracias.

Indica el error exacto que arroja, y de preferencia declara tus variables fuera del evento
Dim LARGOPOT, VARPOT As String

Ya que se estan declarando por cada texto cambiado, algo innecesario; en todo caso declaralas como static, no con dim.

Saludos.