Código:

Public Function aEspacio(A As String, B As Long) As String
On Error Resume Next

'============================================================'
' AX: aEspacio                                              '
' Uso: Call aEspacio (Texto, # de espacios)                  '
'============================================================'

Dim i As Long
Dim c As Long
Dim S() As String

If A = "" Then Exit Function
If Not B > 0 Then Exit Function

c = 1

For i = 1 To Len(A)
If Mid(A, i, 1) = Chr(13) Then c = c + 1
Next i

For i = 0 To c
S() = Split(A, Chr(13) + Chr(10))
aEspacio = aEspacio & Space(B) & S(i) & vbNewLine
Next i
End Function

Saludos...El funcionamiento de esta función es algo simple; Primero el usuario ha de seleccionar el texto con el que se trabajará y después insertará el número de espacios.

Un ejemplo con un total de espacios igual a 10:

Código:

Google
Windows
Explorer

Y el resultado sería:

Código:

          Google
          Windows
          Explorer

Es muy útil para crear los posts cuando no se tienen las herramientas adecuadas e incluso serviría para arreglar o acomodar los grandes textos sin demorarse tanto.



[Tienes que estar registrado y conectado para ver este vínculo]

Quisiera mejorar esta función un poco más, pero mientras tanto incluyo un proyecto que utiliza esta función.