Função definida pelo Utilizador

A Função RptChar(), devolve o caracter digitado o número de vezes pretendido:

Código:

Public Function RptChar(ByVal strNum As String, _
ByVal intChar As String) As String
Dim strOut As String

strOut = String(strNum, intChar)
RptChar = strOut

End Function