"Visual Basic" Programlama dilinde "Bir Sayının Rakamlarının Toplamını Bulma Örneği" ile ilgili kod örneği aşağıda belirtilmiştir.

Imports System

Module MainModule
    Sub Main()
        Dim sum As Integer = 0
        Console.WriteLine("Bir Sayı Girin: ")
        Dim number As Integer = Integer.Parse(Console.ReadLine())
        
        While number <> 0
            Dim digit As Integer = number Mod 10
            sum = sum + digit
            number = number \ 10
        End While
        
        Console.WriteLine("Rakamların Toplamı: " & sum)
    End Sub
End Module