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

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

Sub Divide_Numbers()
Dim vNumber, SepN(1 To 3) As Integer, i As Integer, j As Integer
vNumber = 99
Do
    vNumber = vNumber + 1
    For i = 1 To 3
        SepN(i) = Val(Mid(vNumber, i, 1))
    Next
    If SepN(2) = SepN(1) + SepN(3) Then sStr = sStr & vNumber & ", "
Loop While vNumber <= 999
MsgBox sStr
End Sub

Private Sub Command1_Click()
k = 1
Do While k <> 0
s = s + p
k = InputBox("")
p = InputBox("")
Loop
Print s
End Sub

Sub Divide_Numbers()
Dim N, aN(1 To 3) As Integer, i As Integer, j As Integer, otvet as string
N = 99
Do
    N = N + 1
    For i = 1 To 3
        aN(i) = Val(Mid(N, i, 1))
    Next
    If aN(2) = aN(1) + aN(3) Then otvet = otvet & N & ", "
Loop While N <= 999
MsgBox otvet
End Sub

Sub Divide_Numbers()
Dim N, N1 As Integer, N2 as Integer, N3 as Integer, i As Integer, j As Integer, otvet as string
N = 99
Do
    N = N + 1
    For i = 1 To 3
    N1 Val(Mid(N, 1, 1))
    N2 Val(Mid(N, 2, 1))
    N3 Val(Mid(N, 3, 1))
    If N2 = N1 + N3 Then otvet = otvet & N & ", "
Loop While N <= 999
MsgBox otvet
End Sub

Sub Sort()
Dim arr(), N As Integer, i As Integer, sStr As String, vTmp As Integer, bSorted as Boolean
N = Val(InputBox("N"))
ReDim arr(1 To N)
For i = 1 To N
    arr(i) = Int(Rnd * 50)
    sStr = sStr & arr(i) & " "
Next
Do While Not bSorted
    bSorted = True
    For i = N - 1 To 1 Step -1
        If arr(i) < arr(i + 1) Then
            bSorted = False
            vTmp = arr(i)
            arr(i) = arr(i + 1)
            arr(i + 1) = vTmp
        End If
    Next
Loop
sStr = sStr & vbNewLine
For i = 1 To N
    sStr = sStr & arr(i) & " "
Next
MsgBox sStr
End Sub