在一个整数的所有真因子（除了本身之外的所有因子）中，若存在一个因子d`,将不是d`的所有因子相加求和，再减掉d`，若等于这个数本身，则称该数为佩服数。
例如：12的所有真因子是1、2、3、4、6；12=1+3+4+6-2，因此12是一个佩服数。
下面是书上的编程，求大神完善补充，万分感谢！！！
Option Explicit
Option Base 1

Private Sub Command1_Click()
     Dim I As Integer, S As Integer, F() As Integer
     Dim A As Integer, B As Integer
     A = Text1
     B = Text2
     For I = A To B
         Call Yz(I, F)
         If verify(I, F, S) Then
             list1.AddItem I & " = " & S
        End If
    Next I
End Sub


Private Sub Yz(N As Integer, F() As Integer)
     Dim I As Integer, K As Integer
     For I = 1 To N - 1
     if  then
     
     ReDim Preserve F(K)

        End If
    Next I
End Sub


Private Function verify(N As Integer, F() As Integer, St As String) As Boolean
     Dim I As Integer, K As Integer, Sum As Integer, J As Integer
     For I = 1 To UBound(F)
         Sum = 0
           
        For J = 1 To UBound(F)
            If J <> 1 Then
            
               St = St & F(J) & "+"
            End If
        Next J
        If N = Sum - F(I) Then
      
            St = Left(St, Len(St) - 1) & "-" & F(I)
            Exit Function
        End If
    Next I
End Function

感谢大神的回复和心血！
但是，我用VB程序运行了一下子，不太对，因为12就是个佩服数，但是结果却显示“12不是佩服数”（其实菜鸟的我看的不是很懂）

大神，真是不好意思，可能是我在复制的时候不小心漏了，您的编程确实一点错误都没有。
我想是我没有说清楚我具体想要的结果，对不起。
我想的其实是在点击运行时，程序能够在一个范围内找出所有佩服数。
比如我在Text1中输入10，在Text2中输入60，然后点击运行，就能把这一范围内的佩服数全部显示在Picture1中。
我上张图，您看一下
这是书上显示的运行结果