The line
olItem.Recipients.Add(strBCC).Type = 3
adds the name defined in strBCC as BCC. Type = 3 is BCC.
If there is no existing BCC, you could probably use
olItem.BCC = strBCC
instead of the above line.