Visual Basic para Aplicaciones - Salto de linea dentro de ua celda

'Set Celda = Hoja4.Range("A1")

k = 30

If Len(Celda.Text) > k Then

    n = InStrRev(Celda.Text, " ", k + 1)

    If n > 0 Then

       Celda.Value = RTrim(Left(Celda, n)) & Chr(10) & Mid(Mid(Celda, 2), n)

    End If

End If

Dim k%, n%

Dim celda As Range

Dim s$, t$

Set celda = Range("A1")

celda.Value = "esto es una prueba"

s = celda.Text

k = 6

begin:

If VBA.Len(s) > k Then

   n = VBA.InStrRev(s, " ", k + 1)

   If n > 0 Then

      t = t & VBA.Trim(VBA.Mid(s, 1, n)) & "|" 'VBA.Chr(10)

      s = VBA.Trim(VBA.Mid(s, n))

      GoTo begin:

   Else

        t = t & s

   End If

Else

     t = t & s

End If

MsgBox t