Excel - EXCEL

CUANDO CARGO INFORMACION DESDE UN TEXTBOX A UNA CELDA, SOBREPASA EL TAMAÑO DE LA CELDA EL CUAL YA ESTA DEFINIDO, COMO PUEDO ACTIVAR LA CELDA SIGUIENTE Y COPIAR EL RESTO DEL PARRAFO.

EJEMPLO
ESTA ES LA MANERA NORMAL
A1 EL SIGUIENTE MENSAJE
A2

NECESITO HACERLO DE ESTA MANERA
A1 EL SIGUIENTE
A2 MENSAJE

podría ser:

if len("texto") > 12 then
cells(1,1).text = left("texto",12)
cells(1,2).text = right("texto",len("texto")-12)
else
cells(1,1).text = "texto
end if

GRACIAS VICTOR POR TU AYUDA, EL CODIGO QUE ME DISTES FUNCIONA MUY BIEN, PERO SIGO TENIENDO PROBLEMAS PARA INSERTARLO EN EL SIGUIENTE CODIGO.
NECESITO ACTIVAR LA CELDA SIGUIENTE, QUE ESTA VACIA CUANDO LA LONGITUD DE CONCEPTO > 50. ESTO ES PARA UN PROGRAMA DE FACTURACION, CUANDO INSERTO DESDE EL TEXTBOX LA DESCRIPCION DEL PRODUCTO SOBREPASA EL TAMAÑO ASIGNADO A LA CELDA. SIN MAS Y AGRADESIDO DE ANTEMANO POR TU COLABORACION.

Private Sub CommandButton3_Click()
Dim CONCEPTO As String
Dim CANTIDAD As Integer
Dim UNIDAD As String
Dim PRECIO As String

Worksheets("PRES.").Activate
ActiveSheet.Range("A16").Activate
' Buscar la primera celda vacía de la columna A y convertirla en activa
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
CONCEPTO = Textbox4
' Mientras la variable concepto sea diferente a cadena vacía
Do While CONCEPTO <> ""
CANTIDAD = TextBox5
UNIDAD = TextBox6
PRECIO = TextBox7
TOTAL = TextBox5 * TextBox7
TextBox10 = TOTAL

With ActiveCell

.Value = CONCEPTO
.Offset(0, 4).Value = CANTIDAD
.Offset(0, 5).Value = UNIDAD
.Offset(0, 6).Value = PRECIO
.Offset(0, 7).Value = TOTAL

End With
ActiveCell.Offset(1, 0).Activate
CONCEPTO = InputBox("DESEA INSERTAR OTRA PARTIDA ")
Loop
Textbox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox10 = ""
Textbox4.SetFocus
End Sub

GRACIAS VICTOR POR TU AYUDA, EL CODIGO QUE ME DISTES FUNCIONA MUY BIEN, PERO SIGO TENIENDO PROBLEMAS PARA INSERTARLO EN EL SIGUIENTE CODIGO.
NECESITO ACTIVAR LA CELDA SIGUIENTE, QUE ESTA VACIA CUANDO LA LONGITUD DE CONCEPTO > 50. ESTO ES PARA UN PROGRAMA DE FACTURACION, CUANDO INSERTO DESDE EL TEXTBOX LA DESCRIPCION DEL PRODUCTO SOBREPASA EL TAMAÑO ASIGNADO A LA CELDA. SIN MAS Y AGRADESIDO DE ANTEMANO POR TU COLABORACION.

Private Sub CommandButton3_Click()
Dim CONCEPTO As String
Dim CANTIDAD As Integer
Dim UNIDAD As String
Dim PRECIO As String

Worksheets("PRES.").Activate
ActiveSheet.Range("A16").Activate
' Buscar la primera celda vacía de la columna A y convertirla en activa
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
CONCEPTO = Textbox4
' Mientras la variable concepto sea diferente a cadena vacía
Do While CONCEPTO <> ""
CANTIDAD = TextBox5
UNIDAD = TextBox6
PRECIO = TextBox7
TOTAL = TextBox5 * TextBox7
TextBox10 = TOTAL

With ActiveCell

.Value = CONCEPTO
.Offset(0, 4).Value = CANTIDAD
.Offset(0, 5).Value = UNIDAD
.Offset(0, 6).Value = PRECIO
.Offset(0, 7).Value = TOTAL

End With
ActiveCell.Offset(1, 0).Activate
CONCEPTO = InputBox("DESEA INSERTAR OTRA PARTIDA ")
Loop
Textbox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox10 = ""
Textbox4.SetFocus
End Sub

GRACIAS VICTOR POR TU AYUDA, EL CODIGO QUE ME DISTES FUNCIONA MUY BIEN, PERO SIGO TENIENDO PROBLEMAS PARA INSERTARLO EN EL SIGUIENTE CODIGO.
NECESITO ACTIVAR LA CELDA SIGUIENTE, QUE ESTA VACIA CUANDO LA LONGITUD DE CONCEPTO > 50. ESTO ES PARA UN PROGRAMA DE FACTURACION, CUANDO INSERTO DESDE EL TEXTBOX LA DESCRIPCION DEL PRODUCTO SOBREPASA EL TAMAÑO ASIGNADO A LA CELDA. SIN MAS Y AGRADESIDO DE ANTEMANO POR TU COLABORACION.

Private Sub CommandButton3_Click()
Dim CONCEPTO As String
Dim CANTIDAD As Integer
Dim UNIDAD As String
Dim PRECIO As String

Worksheets("PRES.").Activate
ActiveSheet.Range("A16").Activate
' Buscar la primera celda vacía de la columna A y convertirla en activa
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
CONCEPTO = Textbox4
' Mientras la variable concepto sea diferente a cadena vacía
Do While CONCEPTO <> ""
CANTIDAD = TextBox5
UNIDAD = TextBox6
PRECIO = TextBox7
TOTAL = TextBox5 * TextBox7
TextBox10 = TOTAL

With ActiveCell

.Value = CONCEPTO
.Offset(0, 4).Value = CANTIDAD
.Offset(0, 5).Value = UNIDAD
.Offset(0, 6).Value = PRECIO
.Offset(0, 7).Value = TOTAL

End With
ActiveCell.Offset(1, 0).Activate
CONCEPTO = InputBox("DESEA INSERTAR OTRA PARTIDA ")
Loop
Textbox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox10 = ""
Textbox4.SetFocus
End Sub