请教一个小算法

Question

VB编写程序(或算法)：输入为一个整数，输出为各位上的数字相加，若不为个位数，继续相同操作。如输入3421，输出为1。

Answer 1

Private Sub Command1_Click()
        Dim T As String
        Dim K() As String
        Dim I As Long
        Dim S As Long
        
        
        T = "123456789"
        
Loop100:
        
        ReDim K(Len(T) - 1)
        For I = 0 To Len(T) - 1
            K(I) = Mid(T, I + 1, 1)
        Next
        S = 0
        For I = 0 To UBound(K)
            S = S + K(I)
        Next
        If S > 10 Then
           T = CStr(S)
           GoTo Loop100
        End If
        
        MsgBox S
End Sub