Função Zero

'Simplemente Cole no Modulo Public Enum VBFLugar VbFAntes = 1 VbFDepois = 2 End Enum Public Function Zero(S As String, Q As Integer, Optional Lugar As VBFLugar = VbFAntes) As String 'S = String a Adicionar os Zeros 'Q = quantidade de Zeros 'Lugar = Adicionar os Zeros Antes ou Depois Dim T As Integer S = Trim(S) ' Adiciona Zero na String For T = Len(S) To Q - 1 If Lugar = VbFabioAntes Then S = "0" + S Else S = S + "0" End If Next T ' Retorna a String Zero = Mid(S, 1, Q) End Function