Yes i trying to do numerology calculation.

This code is not working.

Code:
 Function rqs(x, maxqs)
    Dim TempX As Integer, TempQS As Integer
    
    TempX = x
    Do
        TempQS = 0
        Do
            TempQS = TempQS + TempX Mod 10
            TempX = Int(TempX / 10)
        Loop While TempX > 0
        TempX = TempQS
    Loop While TempQS > maxqs
    rqs = TempQS
End Function
You say that "Here's a VBA function (used as a worksheet function) from one of my older Excel files" I need for visual basic, not for excel.

vbc.jpg

vb2.jpg


I put two pictures.
In first pic. you see 1 label,1 command button and 8 TextBox.
In second pic. you see my code.

So can you do write code according to my example involving those files (label, command button and textbox)