Rept Function:
sTemp = aData(iLoop, iColReview)
'===============================================
'Method: Loop until Desired Len is reached
'iLen = Len(sTemp)
' Do While iLen < iStandardLen
' sTemp = 0 & sTemp
' iLen = Len(sTemp)
' Loop
'===============================================
'===============================================
'Method:
sTemp = Application.WorksheetFunction.Rept(0, iStandardLen - Len(sTemp)) & sTemp
'==============================================
'===============================================
'Method: Loop until Desired Len is reached
'iLen = Len(sTemp)
' Do While iLen < iStandardLen
' sTemp = 0 & sTemp
' iLen = Len(sTemp)
' Loop
'===============================================
'===============================================
'Method:
sTemp = Application.WorksheetFunction.Rept(0, iStandardLen - Len(sTemp)) & sTemp
'==============================================
Credit for these methods goes to this genius!:
http://crispexcel.com/7-ways-to-use-excel-rept-function/
This is a link to the char codes for Winding fonts: (use Dec)
http://www.alanwood.net/demos/wingdings.html
http://crispexcel.com/7-ways-to-use-excel-rept-function/
This is a link to the char codes for Winding fonts: (use Dec)
http://www.alanwood.net/demos/wingdings.html