Miért nem akarja meghatározni az árak közül a legkisebbet? (Visual Basic Windows Application)

Itt a program szövegem(listbox1-es kiíratás után van a legkisebb keresés, de egyszerűen 0-át ír ki eredménynek):

Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim pal(4), bubpal As Char

Dim ar(4), bubar, legk, össz, atl As Integer

pal(0) = TextBox1.Text

pal(1) = TextBox2.Text

pal(2) = TextBox3.Text

pal(3) = TextBox4.Text

ar(0) = TextBox5.Text

ar(1) = TextBox6.Text

ar(2) = TextBox7.Text

ar(3) = TextBox8.Text

bubpal = pal(0)

bubar = ar(0)

For j = 1 To 4

For i = 1 To 4

If ar(i - 1) >= ar(i) Then

bubar = ar(i - 1)

bubpal = pal(i - 1)

pal(i - 1) = pal(i)

ar(i - 1) = ar(i)

ar(i) = bubar

pal(i) = bubpal

End If

Next

Next

For i = 1 To 4

ListBox1.Items.Add(pal(i) & "--->" & ar(i))

Next

legk = ar(0)

For i = 0 To 4

If legk > ar(i) Then

legk = ar(i)

End If

Next

TextBox9.Text = legk

össz = 0

For i = 0 To 4

össz = össz + ar(i)

Next

atl = 0

atl = össz / 4.0

TextBox10.Text = atl

End Sub

End Class