Как найти сумму чисел в TextBox Basic ? - VB

Option Explicit
 
Private Sub Command1_Click()
    Text1 = Sum(Text1)
End Sub
 
Function Sum#(ByVal Num#): Dim d#
    d = Val(Text1)
    While d <> 0
        Sum = Sum + d Mod 10
        d = d \ 10
    Wend
End Function
 
Private Sub Form_Load()
    Text1 = "12345"
    Command1.Caption = "Пересчитать"
End Sub
 
Private Sub Text1_Change()
    Text1 = Val(Text1): Text1.SelLength = 100
End Sub