Imports System

​

​

        Public Module Module1

                Public Sub Main()

        'sets variables'

        Dim number, sum As Integer

        number = 1

        'checks if number is positive'

        If number > 0 then

            sum = sum + number

        End If      

        'Determines if its a positive number or a negative number'

        If number < 0 Then

            console.WriteLine("This is a negative number")

        Else

            Console.WriteLine("this is a positive number")

        End If

                End Sub

        End Module