RoomTemperatureValidation.vb

Option Explicit On
Option Strict On
Option Infer On

Module RoomTemperature
    Function IsTemperatureInRange(temperature As Integer) As Boolean
        Return -50 <= temperature AndAlso temperature <= 50
    End Function

    Sub SetRoomTemperature(temperature As Integer)
        If Not IsTemperatureInRange(temperature) Then
            Throw New ArgumentOutOfRangeException(NameOf(temperature), temperature, Nothing)
        End If
        Console.WriteLine($"Setting room temperature to {temperature}°C")
    End Sub

    Sub Main()
        Try
            Dim currentTemperature = 60
            SetRoomTemperature(currentTemperature)
        Catch ex As ArgumentOutOfRangeException
            Console.WriteLine(ex.Message)
        End Try
    End Sub
End Module