Public Function Pakito(eltexto)
 Dim hayespacio As Boolean
 Dim contador_longitud As Integer
 Dim bucle As Integer
 hayespacio = False
 contador_longitud = Len(eltexto)
 eltexto = Trim(eltexto)
 eltexto = UCase(Mid(eltexto, 1, 1)) & LCase(Mid(eltexto, 2, Len(eltexto) - 1))
 For bucle = 2 To contador_longitud
  If Mid(eltexto, bucle, 1) = " " Then
   hayespacio = True
  End If
  If (hayespacio = True) And (Mid(eltexto, bucle, 1) <> " ") Then
   eltexto = Mid(eltexto, 1, bucle - 1) 
     & UCase(Mid(eltexto, bucle, 1)) 
     & Mid(eltexto, bucle + 1, Len(eltexto) - bucle)
   hayespacio = False
  End If
 Next bucle
 Pakito = eltexto
End Function