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

Private Sub Command1_Click()
    Dim a%, x%, s%
    Picture1.Cls
    a = Val(Text1)
    For x = 100 To 999
  
            s = CInt(Mid(x, 1, 1)) + CInt(Mid(x, 2, 1)) + CInt(Mid(x, 3, 1))
            If s = a Then Picture1.Print x
    
    Next x
End Sub