| Function Custom_GL(NUMBER) 'Custom_GL表示软件要调用的函数名,这个不可改变 Custom_GL = False 'False表示NUMBER不会被过滤,首先初始化设置号码不被过滤
 
 BW = CInt(Left(NUMBER, 1)) 'BW表示号码的百位
 SW = CInt(Mid(NUMBER, 2, 1)) 'SW表示号码的十位
 GW = CInt(Right(NUMBER, 1)) 'GW表示号码的个位
 
 If BW < SW Then
 S = BW
 BW = SW
 SW = S
 End If
 
 If BW < GW Then
 S = BW
 BW = GW
 GW = S
 End If
 
 If SW < GW Then
 S = SW
 SW = GW
 GW = S
 End If
 
 S = SW 'S是中间数了
 
 
 T = "%条件%"
 
 If InStr("," & T & ",", "," & S & ",") <> 0 Then
 Custom_GL = True '如果满足上面条件的就是true,也就是号码就会被过滤掉
 Else
 Custom_GL = False
 End If
 
 
 ''''''''''''''''''
 ''''''''''''''''''
 End Function '这是语法的结尾,请不要删了~~
 ''''''''''''''''''
 ''''''''''''''''''
 
 |