Blog Archive

About Me

A minha foto
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
2004-12-13
A Função RptSpace() devolve um número de espaços entre cadeias de caracteres:


Código:

Public Function RptSpace(ByVal strNum As Variant) As String
Dim strOut As String

strOut = Space(strNum)
RptSpace = strOut

End Function