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