VB.NET Sample Code

Module HelloWorld
    Sub Main()
        Console.WriteLine("Hello, World!")
    End Sub
End Module

Module InputDemo
    Sub Main()
        Console.Write("Enter your name: ")
        Dim name As String = Console.ReadLine()
        Console.WriteLine($"Hello, {name}!")
    End Sub
End Module

Imports System.IO

Module FileDemo
    Sub Main()
        Dim path As String = "sample.txt"
        File.WriteAllText(path, "This is a test file.")
        Dim content As String = File.ReadAllText(path)
        Console.WriteLine(content)
    End Sub
End Module

Imports System.Linq

Module LinqDemo
    Sub Main()
        Dim numbers = {1, 2, 3, 4, 5, 6}
        Dim evens = From n In numbers Where n Mod 2 = 0 Select n
        Console.WriteLine(String.Join(", ", evens))
    End Sub
End Module