I guess that it is the origination address you want. Then try CA_ORIG_ADDRESS instead
For i = 0 To UBound(objSubBlockList)
If objSubBlockList(i) = CA_ORIG_ADDRESS Then
strPhoneNumber = objCommonSubBlocks.GetOrigAddress(objNumberingPlan, objTypeOfAddress, objPresentationIndicator, objScreenIndicator)