Imports System

Class Carres
	Overloads Shared Sub Main(ByVal args() As String)

	Try 
		Dim n As Integer
		For n = 7 To 1000 Step 7
			Dim s As String = n.ToString(n)
			Dim sum As Integer
			For i = 0 To s.Length()
				sum = sum + s.Chars(i)
			Next
			If sum = 11 Then
				Console.WriteLine(n)
			End If
		Next 

		Catch ex As Exception
			Console.WriteLine(ex.Message) 
	End Try

	End Sub
End Class