Case 16
                Dim times As Integer = 10
                For i = 1 To Val(Len(取出數字))
                    For j = 1 To times
                        If (Mid(取出數字, i, 1) = j) Then
                            十進位數字 += (16 ^ (Len(取出數字) - i)) * j
                        End If
                    Next
                Next

                For i = len1 To 1
                    ups = Asc(Mid(取出數字16up, i, 1))
                Next
                Select Case ups
                    Case 65 : 十進位數字 = 十進位數字 + 10
                    Case 66 : 十進位數字 = 十進位數字 + 11
                    Case 67 : 十進位數字 = 十進位數字 + 12
                    Case 68 : 十進位數字 = 十進位數字 + 13
                    Case 69 : 十進位數字 = 十進位數字 + 14
                    Case 70 : 十進位數字 = 十進位數字 + 15
                End Select
            Case 17
                Dim times As Integer = 10
                For i = 1 To Val(Len(取出數字))
                    For j = 1 To times
                        If (Mid(取出數字, i, 1) = j) Then
                            十進位數字 += (17 ^ (Len(取出數字) - i)) * j
                        End If
                    Next
                Next

                For i = len1 To 1
                    ups = Asc(Mid(取出數字16up, i, 1))
                    Select Case ups
                        Case 65 : 十進位數字 = 十進位數字 + 10
                        Case 66 : 十進位數字 = 十進位數字 + 11
                        Case 67 : 十進位數字 = 十進位數字 + 12
                        Case 68 : 十進位數字 = 十進位數字 + 13
                        Case 69 : 十進位數字 = 十進位數字 + 14
                        Case 70 : 十進位數字 = 十進位數字 + 15
                        Case 71 : 十進位數字 = 十進位數字 + 16
                            MsgBox(i)
                    End Select

                Next