Imports System.Text
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim temp As String = Replace(TextBox1.Text, "-", vbNullString, 1, TextBox1.Text.Length)
        MsgBox(sumAscii(temp.Trim()))
    End Sub
    Public Function sumAscii(ByVal texto As String) As String
        Dim ascii As Encoding = Encoding.ASCII
        Dim suma As Integer = 0
        Dim txtBytes As [Byte]() = ascii.GetBytes(texto)
        Dim b As [Byte]
        For Each b In txtBytes
            suma += b
        Next b
        sumAscii = suma.ToString()
    End Function
End Class