"Visual Basic" Programlama dilinde "Dizideki Herhangi Bir Konuma Eleman Ekleme Örneği" ile ilgili kod örneği aşağıda gösterilmiştir.

Imports System

Module MainModule
    Sub Main()
        Dim numbers As Integer() = {3, 4, 1, 9, 6, 2, 8}
        Console.WriteLine(String.Join(", ", numbers))

        Console.WriteLine("Eklenecek Sayiyi Girin: ")
        Dim x As Integer = Integer.Parse(Console.ReadLine())

        Console.WriteLine("Eklenecek Index Numarasini Girin: ")
        Dim y As Integer = Integer.Parse(Console.ReadLine())

        For i As Integer = numbers.Length - 1 To y Step -1
            numbers(i) = numbers(i - 1)
        Next
        numbers(y) = x

        Console.WriteLine(String.Join(", ", numbers))
    End Sub
End Module