Исправить код вычисления по формуле

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a(3) As Integer
        Dim i, min, min1, max, p As Integer
        For i = 0 To 2
            a(i) = InputBox("Ввести число", "Ввод числа")
            TextBox1.Text = TextBox1.Text & " " & a(i)
        Next
        min = a(0)
        For i = 0 To 2
            If a(i) < min Then min = a(i)
        Next
        min1 = a(0)
        For i = 1 To 2
            If a(i) < min1 Then min1 = a(i)
        Next
        max = a(0)
        For i = 0 To 1
            If a(i) > max Then max = a(i)
        Next
        p = min / (max - min1)
        Label2.Text = p
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ""
 
        Dim a As Double = InputNumber()
        TextBox1.AppendText(a.ToString)
 
        Dim b As Double = InputNumber()
        TextBox1.AppendText(" " & b.ToString)
 
        Dim c As Double = InputNumber()
        TextBox1.AppendText(" " & c.ToString)
 
        Dim p As Double = Math.Min(Math.Min(a, b), c) / (Math.Max(a, b) - Math.Min(b, c))
 
        Label2.Text = CStr(p)
    End Sub
 
    Private Function InputNumber() As Double
        Dim separator As String = System.Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator(0)
 
        Dim inp As String
        Dim rep As String
 
        Do
            inp = InputBox("Ввести число", "Ввод числа")
            rep = Replace(inp, ".", separator)
        Loop Until IsNumeric(rep)
 
        Return CDbl(rep)
    End Function