Как 2-хмерный массив из всех 3-хзначных чисел сделать - VB

Option Explicit
 
Private Sub Form_Activate()
    Dim sum As Integer, A As Integer, Tmp As Integer, Otvet As Integer
    A = CInt(InputBox("Введите сумму"))
    For Otvet = 100 To 999
        sum = 0: Tmp = Otvet
        While Tmp
            sum = sum + Tmp Mod 10
            Tmp = Tmp \ 10
        Wend
 
     If sum = A Then Print Otvet
     Next
     
End Sub