New to VB

Module Module1
 
    Sub Main()
        Console.Title = "Total Purchase"
        Console.WriteLine("Input the amount of each item purchased")
        Console.WriteLine("Item 1")
        Dim Num1 As Double
        Num1 = Console.ReadLine()
        Console.WriteLine("Item 2")
        Dim Num2 As Double
        Num2 = Console.ReadLine()
        Console.WriteLine("Item 3")
        Dim Num3 As Double
        Num3 = Console.ReadLine()
        Console.WriteLine("Item 4")
        Dim Num4 As Double
        Num4 = Console.ReadLine()
        Console.WriteLine("Item 5")
        Dim Num5 As Double
        Num5 = Console.ReadLine()
        Console.WriteLine("Sub Total is")
        Console.Write(Num1 + Num2 + Num3 + Num4 + Num5)
        Console.ReadLine()
        Dim Num6 As Double
        Num6 = 
        Dim Tax As Double
        Tax = 0.06
        Console.WriteLine(Math.Round((Num1 + Num2 + Num3 + Num4 + Num5) * Tax, 3))
        Console.ReadLine()
    End Sub