Задача с использованием процедур

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n As Double = 1234 'исходное число. Ввод через InputBox, например, сам сделай
 
        Dim pattSumm As Integer = GetSumm(GetNumbers(n).ToArray) 'вычисляем сумму цифр введённого числа
        Dim tinySumm As Integer = 0 'переменная для проверяемых сумм
 
        ListBox1.Items.Clear()
 
        'в цикле проверяем все числа от 1 до исходного числа
        For i = 1 To n - 1
            tinySumm = GetSumm(GetNumbers(i).ToArray)
            If tinySumm = pattSumm Then
                ListBox1.Items.Add(i)
            End If
        Next
 
        MsgBox(pattSumm)
        'Результат "Нет", надеюсь, тоже сам осилишь
    End Sub
 
    Private Function GetNumbers(ByVal num As Double) As List(Of Integer)
        Dim x As Double
        Dim numbers As New List(Of Integer)    'это наш список цифр числа
        numbers.Clear()                        'очищаем список
 
        'в цикле вычисляем цифры числа
        While num > 0.1
            x = num Mod 10
            numbers.Add(x)
            'ListBox1.Items.Add(x)
            num = num \ 10
        End While
 
        Return numbers                       'возвращаем список цифр
    End Function
 
    Private Function GetSumm(ByVal numbers() As Integer) As Integer
        Dim sum As Integer = 0
        For Each n In numbers
            sum += n
        Next
        Return sum
    End Function
 
 
End Class