Module Module1

    Function Obliczenia(x1 As Integer, x2 As Integer, x3 As Double) As Double
        Dim result As Double

        If x3 > 5 Then
            result = (x1 - x2) / x3
        ElseIf x3 <= 5 Then
            result = (x1 - x2) * x3
        End If

        Obliczenia = result
    End Function

    Sub Main()
        Dim x1 As Integer
        Dim x2 As Integer
        Dim x3 As Double
        Dim result As Double
        System.Console.WriteLine("Podaj x1: ")
        x1 = System.Console.ReadLine()
        System.Console.WriteLine("Podaj x2: ")
        x2 = System.Console.ReadLine()
        System.Console.WriteLine("Podaj x3: ")
        x3 = System.Console.ReadLine()
        result = Obliczenia(x1, x2, x3)
        System.Console.Write("Wynik: ")
        System.Console.WriteLine(result)
        System.Console.ReadKey()
    End Sub

End Module