Sub Çàäàíèå2()
    Dim HexValue As String
    Dim BinValue As String
    Dim Func As Integer
    Dim i As Byte
    Dim Char As String
        BinValue = ""
        HexValue = InputBox("×èñëî: ", "Ïåðåâîä ÷èñëà â äâîè÷íóþ", "FCE279")
            For i = 1 To Len(HexValue)
                Char = Mid(HexValue, i, 1)
                    Select Case Char
                    Case "0":
                         b = "0000"
                         c = 0
                    Case "1":
                        b = "0001"
                        c = 1
                    Case "2":
                        b = "0010"
                        c = 1
                    Case "3":
                        b = "0011"
                        c = 2
                    Case "4":
                        b = "0100"
                        c = 1
                    Case "5":
                        b = "0101"
                        c = 2
                    Case "6":
                        b = "0110"
                        c = 2
                    Case "7":
                        b = "0111"
                        c = 3
                    Case "8":
                        b = "1000"
                        c = 1
                    Case "9":
                        b = "1001"
                        c = 2
                    Case "A":
                        b = "1010"
                        c = 2
                    Case "B":
                        b = "1011"
                        c = 3
                    Case "C":
                        b = "1100"
                        c = 2
                    Case "D":
                        b = "1101"
                        c = 3
                    Case "E":
                        b = "1110"
                        c = 3
                    Case "F":
                        b = "1111"
                        c = 4
                    Case Else:
                        MsgBox "Âû ââåëè ÷òî òî íå òî!"
                    Exit Sub
                End Select
            BinValue = BinValue & b
            Func = Func + c
            'Func = podschet(c)
        Next i
    MsgBox BinValue
    MsgBox Func
End Sub
Function podschet(c)
    Dim d As Integer
        d = d + c
End Function