Código: Seleccionar todo

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

Código: Seleccionar todo

Google 
Windows
Explorer

Código: Seleccionar todo

          Google 
          Windows
          Explorer