Write a vb.net program that uses a sub procedure to calculate and sum of all even numbers between 1 and n where n is supplied by the user

Sure, here is a simple VB.NET program that uses a sub procedure to calculate the sum of all even numbers between 1 and n.

Imports System

Module Program
    Sub Main(args As String())
        Console.Write("Enter a number: ")
        Dim n As Integer = Integer.Parse(Console.ReadLine())
        Dim sum As Integer = SumOfEvenNumbers(n)
        Console.WriteLine("The sum of all even numbers from 1 to " & n & " is " & sum)
    End Sub

    Function SumOfEvenNumbers(n As Integer) As Integer
        Dim sum As Integer = 0
        For i As Integer = 1 To n
            If i Mod 2 = 0 Then
                sum += i
            End If
        Next
        Return sum
    End Function
End Module

This program works as follows:

1. It prompts the user to enter a number.
2. It reads the user's input and converts it to an integer.
3. It calls the SumOfEvenNumbers function, passing the user's number as an argument.
4. The SumOfEvenNumbers function calculates the sum of all even numbers from 1 to the user's number.
5. It prints the result to the console.