"Visual Basic" Programlama dilinde "Bir Stringin Ortadaki Üç Karakterini Bulma Örneği" ile ilgili örnek kod aşağıda verilmiştir.

Module Program
    Sub Main()
        GetMiddleThreeChars("Yazilim")
        GetMiddleThreeChars("Yazilimi Çok Seviyorum")
    End Sub
    
    Sub GetMiddleThreeChars(ByVal str1 As String)
        Console.WriteLine("Orjinal String: " & str1)
        
        Dim mi As Integer = str1.Length \ 2

        Dim res As String = str1.Substring(mi - 1, 3)
        Console.WriteLine("Ortadaki Üç Karakter: " & res)
    End Sub
End Module