Tengo este código en un Command1 que pretende convertir en número de octal a Hexadecimal.<br>El tema es que da siempre 0 y no se corregirlo. ¿Cómo se puede solventar el error?
  
    Private Sub Command3_Click()
        ' Procedimiento que convierte un número de Octal a Hexadecimal
        
        Dim octNumber, length As String
        Dim total, i, j, dec, modnum As Integer
        
        total = 0
        j = 0
        
        Dim oct As String
        
        octNumber = Val(Text1.Text)
        
        oct = octNumber
        length = Len(oct)
        
        Dim value As Boolean
        
        value = True
        
        For i = length - 1 To 0 Step -1
            dec = 0
            
            Select Case (Str(i))
                Case 0
                    dec = 0
                Case 1
                    dec = CInt(8 ^ j)
                Case 2
                    dec = CInt(8 ^ j) * 2
                Case 3
                    dec = CInt(8 ^ j) * 3
                Case 4
                    dec = CInt(8 ^ j) * 4
                Case 5
                    dec = CInt(8 ^ j) * 5
                Case 6
                    dec = CInt(8 ^ j) * 6
                Case 7
                    dec = CInt(8 ^ j) * 7
                Case Else
                    value = False
            End Select
            total = total + dec
            j = j + 1
        Next
        
        If value Then
            Dim hexa As String
            hexa = ""
            If total > 0 Then
                While (total > 0)
                    modnum = CInt(total Mod 16)
                    total = total \ 16
                    Select Case (modnum)
                        Case 0
                            hexa = "0" & hexa
                        Case 1
                            hexa = "1" & hexa
                        Case 2
                            hexa = "2" & hexa
                        Case 3
                            hexa = "3" & hexa
                        Case 4
                            hexa = "4" & hexa
                        Case 5
                            hexa = "5" & hexa
                        Case 6
                            hexa = "6" & hexa
                        Case 7
                            hexa = "7" & hexa
                        Case 8
                            hexa = "8" & hexa
                        Case 9
                            hexa = "9" & hexa
                        Case 10
                            hexa = "A" & hexa
                        Case 11
                            hexa = "B" & hexa
                        Case 12
                            hexa = "C" & hexa
                        Case 13
                            hexa = "D" & hexa
                        Case 14
                            hexa = "E" & hexa
                        Case 15
                            hexa = "F" & hexa
                    End Select
                Wend
                Text2.Text = hexa
        
                ElseIf total = 0 Then
                    Text2.Text = "0"
                ElseIf Not hexa Then
                    Text2.Text = "Dato erróneo"
                Else
                    Text2.Text = "Dato erróneo"
                End If
            End If
    End Sub