I cannot get this piece of code to give me a sum - it is only returning '0.00.' Can someone please look at it and tell me where I am dropping the ball?

ALL items in the array have a value in currency form (decimal) - some of them will have a value of '0.00'.

Code:
    Private Sub TaxDue()
        ' Creates Array of specific Textboxes to sum
        Dim IFTAdue() As TextBox = {tbTaxDueAL, tbTaxDueAK, tbTaxDueAZ, tbTaxDueAR, tbTaxDueCA, tbTaxDueCO, tbTaxDueCT, tbTaxDueDE, tbTaxDueDC, tbTaxDueFL, tbTaxDueGA, tbTaxDueHI,
                                    tbTaxDueID, tbTaxDueIL, tbTaxDueIN, tbTaxDueIA, tbTaxDueKS, tbTaxDueKY, tbTaxDueLA, tbTaxDueME, tbTaxDueMD, tbTaxDueMA, tbTaxDueMI, tbTaxDueMN,
                                    tbTaxDueMS, tbTaxDueMO, tbTaxDueMT, tbTaxDueNE, tbTaxDueNV, tbTaxDueNH, tbTaxDueNJ, tbTaxDueNM, tbTaxDueNY, tbTaxDueNC, tbTaxDueND, tbTaxDueOH,
                                    tbTaxDueOK, tbTaxDueOR, tbTaxDuePA, tbTaxDueRI, tbTaxDueSC, tbTaxDueSD, tbTaxDueTN, tbTaxDueTX, tbTaxDueUT, tbTaxDueVT, tbTaxDueVA, tbTaxDueWA,
                                    tbTaxDueWV, tbTaxDueWI, tbTaxDueWY}

        Dim Sum As Integer = 0
        Dim Val As Integer = 0
        For Each tb As TextBox In IFTAdue

            If Integer.TryParse(tb.Text, Val) Then
                Sum += Convert.ToInt32(tb.Text)
            End If
        Next

        tbIFTADue.Text = Sum.ToString("C2")
    End Sub