Response to: little help needed in this problem vb 2010

Revision 1
Try creating a function that will add the values. You can change the code below to what you want.

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim Day As String = "1"
    Dim Month As String = "3"
    Dim Year As String = "1986"
    Dim Holder As Integer = 0

    For Each num As Char In (Day + Month + Year)
        Holder += Val(num)
    Next

    MessageBox.Show(AddString(Holder))
End Sub

Function AddString(number As String) As String
        Dim i As Integer = 0

        For Each num As Char In number
            i += Val(num)
        Next

        If i.ToString().Length > 1 Then
            Return AddString(i) 
        End If

        Return i.ToString()
End Function