Ошибка при вычислении дробной части

  Dim str1() As String = Split(TextBox2.Text, ",")
        Dim r4 As Double
        If UBound(str1) = 1 Then
            Dim arrc4, arrd4 As String
            Dim arr41() As Long
            Dim arr42() As Double
            Dim r41 As Long
            Dim r42, rd4 As Double
            Dim i%, j%, l%, k%
            Dim c1, c2 As Char
            arrc4 = str1(0)
            For i% = 1 To Len(arrc4)
                ReDim Preserve arr41(j%)
                c1 = arrc4.Chars(j%)
                arr41(j%) = Val(c1)
                j% = j + 1
            Next i%
            For k% = UBound(arr41) To LBound(arr41) Step -1
                arr41(l%) = arr41(l%) * 4 ^ k%
                r41 = r41 + arr41(k%)
                l% = l + 1
            Next k%
            ' дробная часть
            arrd4 = str1(1)
            Dim g As Integer
            Dim z%, x%, w%, v%
            For z% = 1 To Len(arrd4)
                ReDim Preserve arr42(x%)
                c2 = arrd4.Chars(x%)
                arr42(x%) = Val(c2)
                x% = x + 1
            Next z%
            g = UBound(arr42)
            For v% = 1 To g
                arr42(w%) = arr42(w%) * (1 / (4 ^ v%))
                r42 = r42 + arr42(w%)
                w% = w + 1
            Next v%
            Label2.Text = r41
            Label3.Text = r42
            rd4 = r41 + r42
            Label7.Text = rd4
        Else
            Dim arr4 As String
            Dim arr41() As Long
            arr4 = str1(0)
            Dim i%, j%, l%, k%
            Dim c As Char
            For i% = 1 To Len(arr4)
                ReDim Preserve arr41(j%)
                c = arr4.Chars(j%)
                arr41(j%) = Val(c)
                j% = j + 1
            Next i%
            For k% = UBound(arr41) To LBound(arr41) Step -1
                arr41(l%) = arr41(l%) * 4 ^ k%
                r4 = r4 + arr41(k%)
                l% = l + 1
            Next k%
            Label7.Text = r4