Public Function Telc (Num as String) AS String
DIM TL AS INTEGER DIM LTEM, RTEM, TTEM AS STRING DIM TI AS INTEGER TTEM = "" TL = LEN (NUM) IF TL> 14 THEN NUM = MID (Num, 1, 14) TL = 14 END IF
IF TL = 11 THEN TL = TL 2 NUM = "86" & Num End if IF TL MOD 2 = 1 THEN TL = TL 1 NUM = Num "F" end if for ti = 1 to TL Step 2 Ttem = Ttem & Mid (Num, Ti 1, 1) & Mid (Num, Ti, 1) Next Ti Telc = Ttem End Function
