Excel - AYUDA CON VISUAL PARA EXCEL

ES URGENTE TENGO MESES ESCRIBIENDO Y NADIEN ME HA PODIDO AYUDAR

'Este codigo es el que quiero implementar. lo que carge en el textbox4 es igual a concepto entonces cuando escriba en la celda que corresponda, no sobrepase el tamaño del campo que es igual a 40 espacios si pasa estos 40 espacios escribir en la linea de abajo.
Private Sub CommandButton1_Click()
Worksheets("PRES.").Select
Cells(4, 7).Value = TextBox1.Text

Worksheets("PRES.").Select

If OptionButton1.Value = True Then
TextBox8.Value = "DR. CARABAÑO TOSTA"
TextBox9.Value = "MARACAY EDO. ARAGUA."
Else
If OptionButton2.Value = True Then
TextBox8.Value = "DR LUIS SALAZAR DOMINGUEZ "
TextBox9.Value = "GUARENAS EDO. MIRANDA "

Else
If OptionButton3.Value = True Then
TextBox8.Value = "DR. JOSE MARIA VARGAS"
TextBox9.Value = "LA GUAIRA EDO. VARGAS "


End If

End If
End If
Cells(7, 7) = TextBox8.Value
Cells(8, 2) = TextBox9.Value

If OptionButton4.Value = True Then
Cells(42, 2) = "COORDINACION DE VENTAS"

Else
If OptionButton5.Value = True Then
Cells(42, 2) = "COORDINACION TECNICA"
End If
End If
End Sub
Private Sub CommandButton2_Click()
Textbox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox10 = ""
End Sub
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 Nombre sea diferente a cadena vacía
Do While CONCEPTO <> ""
CANTIDAD = TextBox5
UNIDAD = TextBox6
PRECIO = TextBox7
TOTAL = TextBox5 * TextBox7
TextBox10 = TOTAL


'Este codigo es el que quiero implementar. lo que carge en el textbox4 es igual a concepto entonces cuando escriba en la celda que corresponda, no sobrepase el tamaño del campo que es igual a 40 espacios si pasa estos 40 espacios escribir en la linea de abajo.
With ActiveCell
If Len(CONCEPTO) > 40 Then
ActiveCell.Offset(1, 0).Activate = Left(CONCEPTO, 40)
ActiveCell.Offset(1, 0).Activate = Right(CONCEPTO, Len(CONCEPTO) - 40)
Else
.Value = CONCEPTO
.Offset(0, 4).Value = CANTIDAD
.Offset(0, 5).Value = UNIDAD
.Offset(0, 6).Value = PRECIO
.Offset(0, 7).Value = TOTAL
End If
End With
ActiveCell.Offset(1, 0).Activate
CONCEPTO = InputBox("DESEA INSERTAR OTRA PARTIDA ")
Loop
Textbox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox10 = ""
Textbox4.SetFocus
End Sub
Private Sub CommandButton5_Click()
UserForm1.Hide
UserForm2.Show
End Sub
Private Sub TextBox3_Change()
Dim Numero1 As String
Dim Numero2 As String
Numero1 = "PRESUPUESTO 54-EM06-"
Numero2 = TextBox3
ActiveSheet.Range("A12").Value = Numero1 & Numero2
End Sub

Private Sub TextBox2_Change()
Dim Numero1 As String
Dim Numero2 As String
Dim RESULT As String
Numero1 = "ASUNTO:"
Numero2 = TextBox2
RESULT = Numero1 & " " & Numero2
If Len(RESULT) > 93 Then
ActiveSheet.Range("A9") = Left(RESULT, 93)
ActiveSheet.Range("A10") = Right(RESULT, Len(RESULT) - 93)
Else
ActiveSheet.Range("A9").Value = RESULT
End If
End Sub