Keith Rull

Module Program

    Sub Main()
        Calculate()
    End Sub

    Private Sub Calculate()
        Dim value1 As Integer = 0

        'Imagine that the value of value1 is has been manipulated on this section
        '///--> Insert imaginary code here <---

        Dim value2 As Integer = CInt(IIf(value1 <= 0, 100, CalculateValue(value1)))
    End Sub

    Private Function CalculateValue(ByVal value1 As Integer) As Integer
        If (value1 <= 0) Then
            Throw New ArgumentOutOfRangeException("Parameter cannot be less than 1!")
        Else
            Return CInt(100 / value1)
        End If
    End Function

End Module