Public Function SFDC_ID18(SFDC_ID15 As String)
'
'  Convert SFDC 15 character ID to a "unique" 18 character ID
'  Brian Green Consultancy CIC
'
   SFDC_ID18 = SFDC_ID15
   Check_digit = "ABCDEFGHIJKLMNOPQRSTUVWXYZ012345"
   LT = Asc("A")
   GT = Asc("Z")
   For i = 1 To 3
      x = 0
      Block = Mid(SFDC_ID15, 5 * (i - 1) + 1, 5)
      For j = 1 To 5
         C = Asc(Mid(Block, j, 1))
         If LT <= C And C <= GT Then x = x + 2 ^ (j - 1)
      Next j
      SFDC_ID18 = SFDC_ID18 + Mid(Check_digit, x + 1, 1)
   Next i
End Function