Найти все трехзначные числа, вторая цифра которых равна сумме первой и третьей цифры

Private Sub Command1_Click()
Do
t = t + 1
s1 = 100 + 3 * t
s2 = 2 * Exp(t)
Loop Until s1 < s2
MsgBox t
End Sub

Option Explicit
 
'Задача: Найти все трехзначные числа,вторая цифра которых равна сумме первой и третьей цифры.
 
Private Sub Form_Load()
    Dim i&, s$
    For i = 100 To 999
 
        If Mid$(i, 2, 1) = Val(Mid$(i, 1, 1)) + Val(Mid$(i, 3, 1)) Then s = s & vbLf & i
    Next
    MsgBox s
End Sub

Option Explicit
Private Sub Command1_Click()
    Dim j As Integer, i As Integer
    For i = 1 To 9
        For j = 0 To 9 - i
           Debug.Print i & (i + j) & j
        Next j
    Next i
End Sub

Option Explicit
Private Sub Command1_Click()
    Dim j As Integer, i As Integer, s As String
    For i = 1 To 9
        For j = 0 To 9 - i
           s = s & i & (i + j) & j & vbCrLf
        Next j
    Next i
    MsgBox s
End Sub