Visual Basic

Dim strNumber As String = txtNumberToSplit.Text
lblOnes.Text = strNumber(strNumber.Length - 1)
lblTens.Text = strNumber(strNumber.Length - 2)
lblHundreds.Text = strNumber(strNumber.Length - 3)
lblThousands.Text = strNumber(strNumber.Length - 4)
lblTenThousands.Text = CInt(strNumber / 10000)

Dim strNumber As String = txtNumberToSplit.Text
        If strNumber.Length > 0 Then lblOnes.Text = strNumber(strNumber.Length - 1) Else lblOnes.Text = 0
        If strNumber.Length > 1 Then lblTens.Text = strNumber(strNumber.Length - 2) Else lblTens.Text = 0
        If strNumber.Length > 2 Then lblHundreds.Text = strNumber(strNumber.Length - 3) Else lblHundreds.Text = 0
        If strNumber.Length > 3 Then lblThousands.Text = strNumber(strNumber.Length - 4) Else lblThousands.Text = 0
        lblTenThousands.Text = CInt(strNumber / 10000)

Public Function Hundreds()
        Dim H As Int16

        H = CInt(My.Forms.Form1.lblValue.Text)
        H = H \ 100
        Return H

    End Function

    Public Function Tens()
        Dim T As Int16

        T = CInt(My.Forms.Form1.lblValue.Text)
        T = (T Mod 100) \ 10

        Return T
    End Function

    Public Function Units()
        Dim U As Int16

        U = CInt(My.Forms.Form1.lblValue.Text)
        U = (U Mod 10)

        Return U
    End Function

Peter Leipzig wrote:

Second, the Registration program clearly has three projects of its own, including files such as Reference and AssemblyInfo