Задача VBA, помогите решить.

Sub bilet()
n = Int(InputBox("N="))
s = ""
k = 0
For a = 0 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
For e = 0 To 9
For f = 0 To 9
If k = n Then Exit For
If a + b + c = d + e + f Then
s = s + Str(a) + Str(b) + Str(c) + Str(d) + Str(e) + Str(f) + Chr(10)
k = k + 1
End If
Next f
Next e
Next d
Next c
Next b
Next a
MsgBox s
End Sub

VB.NET
https://ideone.com/gZFEDE

106007
106016
106025
106034
106043
106052
106061
106070
106106
106115
106124
106133
106142
106151
106160
106205
106214
106223
106232
106241
106250
106304
106313
106322
106331
106340
106403
106412
106421
106430
106502
106511
106520
106601
106610
106700
107008
107017
107026
107035
107044
107053
107062
107071
107080
107107
107116
107125
107134
107143
107152
107161
107170
107206
107215
107224
107233
107242
107251
107260
107305
107314
107323
107332
107341
107350
107404
107413
107422
107431
107440
107503
107512
107521
107530
107602
107611
107620
107701
107710
107800
108009
108018
108027
108036
108045
108054
108063
108072
108081
108090
108108
108117
108126
108135
108144
108153
108162
108171
108180
108207
108216
108225
108234
108243
108252
108261
108270
108306
108315
108324
108333
108342
108351
108360
108405
108414
108423
108432
108441
108450
108504
108513
108522
108531
108540
108603
108612
108621
108630
108702
108711
108720
108801
108810
108900
109019
109028
109037
109046
109055
109064
109073
109082
109091
109109
109118
109127
109136
109145
109154
109163
109172
109181
109190
109208
109217
109226
109235
109244
109253
109262
109271
109280
109307
109316
109325
109334
109343
109352
109361
109370
109406
109415
109424
109433
109442
109451
109460
109505
109514
109523
109532
109541
109550
109604
109613
109622
109631
109640
109703
109712
109721
109730
109802
109811
109820
109901
109910

циклы вложенные для каждой цифры, проверка условия, вывод, счетчик, выход. на VBA не умею