Please Help Me!!

[JenniferTess]

Hello. My name is Jennifer. I am new to the world of programming and to this forum. Please be kind. I have an assignment for my intro to programming class due tonight by midnight and i cannot figure out what is wrong with this code. I feel like i am over my head with this class. Someone please help me. I have attached my coding below so you can see what i am doing wrong. I believe it is a calculation error, not a programming error. But like i said, i am new and have no clue what i am doing.

  Private Sub calc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calc.Click
        
        Dim north As Integer
        Dim south As Integer
        Dim east As Integer
        Dim west As Integer


        Dim LastYearSales As Double
        Dim NextYearSales As Double = 0
        Dim IncreaseAmount As Double = 0

        LastYearSales = Val(lastY.Text)



        north = 0.05
        south = 0.08
        east = 0.03
        west = 0.06


        If NSEW.Text.ToUpper = "NORTH" Then
            IncreaseAmount = north * LastYearSales
        ElseIf NSEW.Text.ToUpper = "SOUTH" Then
            IncreaseAmount = south * LastYearSales
        ElseIf NSEW.Text.ToUpper = "EAST" Then
            IncreaseAmount = east * LastYearSales
        ElseIf NSEW.Text.ToUpper = "WEST" Then
            IncreaseAmount = west * LastYearSales
        End If



        NextYearSales = IncreaseAmount + LastYearSales


        lblAns.Text = NextYearSales
    End Sub




End Class

Thank you for your time. This has been most frustrating to say the least!!