程序循环，CPU占用率问题

这段代码需要处理上千万次循环，因为号码文件数量在百万左右，号段文件也有10万左右，应该怎么做，让他的效率高点，然后还要解决CPU占用率的问题呢！

Private Sub Command2_Click()
Dim HaoMaNo As Long '号码文件的可用文件号
Dim HaoMaDiQu As String '从号段文件中读取的号段跟地区
Dim MobileNum As String'从HaoMaDiQu分割出来的号段
Dim DiQu As String '从HaoMaDiQu分割出来的地区
Dim HaoMaNum As String '从号码文件中读取的号码
HaoMaNo = FreeFile()
HaoDuanNo = 2'号段文件的可用文件号
SaveNo = 3'保存号码文件的可用文件号

Open HaoMa.Text For Input As HaoMaNo
Open Save.Text For Append As SaveNo
Do While Not EOF(HaoMaNo)
Line Input #HaoMaNo, HaoMaNum
Strtemp1 = Mid(HaoMaNum, 1, 7)
Open HaoDuan.Text For Input As HaoDuanNo
Do While Not EOF(HaoDuanNo)
Line Input #HaoDuanNo, HaoMaDiQu
MobileNum = Split(HaoMaDiQu, vbTab)(0)
DiQu = Split(HaoMaDiQu, vbTab)(1)
strtemp = Trim(MobileNum)
If Strtemp1 = strtemp Then '在这有个循环，就是概率的匹配，如果等于那么把这个号码跟号段的地区一块写进保存文件中

DoEvents
Print #SaveN

程序的CPU占用率 如何限制特定程序CPU占用率过高的问题？ 使用程序后，cpu占用率过高的问题！ cpu占用率问题 CPU占用率问题 关于CPU占用率问题 CPU占用率的问题 神泣cpu占用率问题 关于cpu占用率问题 CPU占用率100%的问题