Basins naming VBA
    
        
        
        
    
        
            Dim id as string
Dim zeros as string
Dim cont as string
Dim basinId as string
id = [ID] 
zeros = "00000"
cont = "sa"
basinId = cont & "_" & Left(zeros, 5 - Len(id)) & id
Replace two character 
cont = "sa"
 string with appropriate name.
aaasdf asadfdsfd fasd fasdf