operaciones aritméticas en visual basic tipo consola

"creación de las funciones"

Public Class operaciones_aritmetricas
    Public n1, n2 As Decimal
    Public Function sumar(ByVal n1 As Decimal, ByVal n2 As Decimal) As Decimal
        Return n1 + n2
    End Function
    Public Function restar(ByVal n1 As Decimal, ByVal n2 As Decimal) As Decimal
        Return n1 - n2
    End Function
    Public Function multip(ByVal n1 As Decimal, ByVal n2 As Decimal) As Decimal
        Return n1 * n2
    End Function
    Public Function div(ByVal n1 As Decimal, ByVal n2 As Decimal) As Decimal
        Return n1 / n2
    End Function
End Class

"programar el sub main"

Module operaciones_basicas

   Sub Main()

        Dim operaciones As New operaciones_aritmetricas()

        Console.WriteLine("suma:")

        Dim k As Decimal = Console.ReadLine()

        Console.WriteLine(k & "total suma" & operaciones.sumar(k))

        Console.WriteLine("resta:")

        Dim j As Decimal = Console.ReadLine()

        Console.WriteLine(j & "total resta" & operaciones.restar(j))

        Console.WriteLine("multiplicación:")

        Dim h As Decimal = Console.ReadLine()

        Console.WriteLine(h & "total multiplicasión" & operaciones.multip(h))

        Console.WriteLine("división:")

        Dim w As Decimal = Console.ReadLine()

        Console.WriteLine(w & "total division" & operaciones.div(w))

    End Sub

End Module