Найти сумму всех четных цифр, входящих в строку - VB

Dim stroka As String ' строчка для подсчета
Dim dig As String
Dim summa As Integer
Private Sub Form_Load()
     'stroka = "Введите 56432 строку QWERTV $%^&#@ 62119784 ABCD"
     stroka = InputBox("Введите строку")
     For i = 1 To Len(stroka)
        dig = Mid(stroka, i, 1)
        If Val(dig) Mod 2 = 0 Then summa = summa + Val(dig)
     Next
     MsgBox "Сумма чётных цифр = " & summa
     End
End Sub