Напишите стратовую процедуру

Sub DigitCountSum(k as integer, c as integer, s as integer)
      c=0
      s=0
      Do
         if k=0 then exit do
         c=c+1
         s=s+(k mod 10)
         k=k\10
      Loop
End sub

Sub Main()
    
    Dim k As Integer, c As Integer, s As Integer
    
    Call DigitCountSum(k, c, s)
 
End Sub

Sub DigitCountSum(byval k as integer, c as integer, s as integer)
      Do until k=0
         c=c+1
         s=s+(k mod 10)
         k=k\10
      Loop
End sub
 
Sub Main()
    Dim k As Integer, c As Integer, s As Integer
    k=inputbox("Введите число: ")
    Call DigitCountSum(k, c, s)
    msgbox "Сумма цифр числа " & k & "=" & s & vblf & "Кол-во разрядов: " & c
End Sub