Imports System

​

Public Module IfSelect

    Public Sub Main()

​

        Dim PlayerName As String

        Dim Money As Integer

        Dim Computer As String

​

        Console.WriteLine("What is your name?")

​

        PlayerName = Console.ReadLine()

​

        Console.WriteLine("How much money do you have?($)")

​

        Money = Console.ReadLine()

​

        If Money >= 1000 Then

​

            Computer = 1

​

        Else

​

            Computer = 0

​

        End If

​

        If Computer > 0 Then

​

            Console.WriteLine(PlayerName & " can afford " & Computer & " computer")

​

        Else

​

            Console.WriteLine(PlayerName & " can afford " & Computer & " computers")

​

        End If

​

​

        Console.ReadLine()

​

        Main()

​

​

    End Sub

​

​

End Module