Option Strict On
Module Module1

    Sub Main()
        Dim character As Char = "!"c
        Dim denary As Integer = 0
        Dim binary, oddParity, evenParity, hamming As String

        Console.Title = "ASCII to Hamming Converter"
        Console.ForegroundColor = ConsoleColor.Green
        Console.Write("ASCII Character: ") : character = CChar(Console.ReadLine())
        Console.Clear()
        denary = Asc(character)
        binary = Denary2Binary(denary)
        evenParity = Parity(binary, 0)
        oddParity = Parity(binary, 1)

        Console.WriteLine("Character: {0}", character)
        Console.WriteLine("Denary: {0}", denary)
        Console.WriteLine("Binary: {0}", binary)
        Console.WriteLine("Even Parity: {0}", evenParity)
        Console.WriteLine("Odd Parity: {0}", oddParity)
        Console.WriteLine("Hamming: {0}", hamming)
        Console.ReadLine()
    End Sub
    Public Function Denary2Binary(ByVal denary As Integer) As String
        Dim r As Integer = 0 'r for Remainder
        Dim i As Integer = denary 'i for Integer
        Dim binary As String = ""
        Do
            r = i Mod 2
            i = i \ 2
            binary = CStr(r) & binary
        Loop Until i = 0
        Return binary
    End Function
    Public Function Parity(ByVal binary As String, ByVal type As Integer) As String
        Dim quantityOf1s As Integer = 0, parityBit As Integer = 0
        For Each character In binary 'Count the 1s
            If character = "1" Then quantityOf1s += 1
        Next
        Select Case type
            Case 0 'Even Parity
                If quantityOf1s Mod 2 = 0 Then parityBit = 0 Else parityBit = 1
                Return parityBit & binary
            Case 1 'Odd Parity
                If quantityOf1s Mod 2 = 0 Then parityBit = 1 Else parityBit = 0
                Return parityBit & binary
            Case Else
                Return "ERROR" 'To placate the compiler
        End Select
    End Function
End Module

Dim foo As Integer = Convert.ToInt32("110111011101", 2)
Dim bar As Integer = Convert.ToInt32("A93E", 16)