[VBA] Function to Add Zero to Character

Function AddZero(ByVal sWord As String, Optional CharCount As Integer = 8) As String
     iZero = CharCount - Len(sWord)
     AddZero = String(iZero, "0") & sWord
End Function

Mudik Lebaran 1439H 2018