"Visual Basic" Programlama dilinde "Bir String İçindeki Sayıların Toplamını Bulma Örneği" ile ilgili örnek kod aşağıda gösterilmiştir.

Module Module1
    Sub Main()
        Dim input_str As String = "5:.Yazılım@#8!4..96"
        Dim total As Integer = 0
        Dim cnt As Integer = 0
        For Each c As Char In input_str
            If Char.IsDigit(c) Then
                total += Integer.Parse(c.ToString())
                cnt += 1
            End If
        Next
        Console.WriteLine("Sayıların Toplamı: " & total)
    End Sub
End Module