Can I simplify this VB.net code so I don't have to repeat so much?
I am creating a scheduling algorithm.  My code is getting very long. Can anyone suggest how can I make my code shorter as I have to repeat the same thing many times below and where the outer else is 4 or 5 I have to repeat it even more:

Here's an example of just part of my code:

     ElseIf Val(jobs_txt.Text) = 3 Then
                If (a < b And b < c) Then
                    awt1_lbl.Text = Val(0)
                    awt2_lbl.Text = a
                    awt3_lbl.Text = a + b
                    y = (Val(awt1_lbl.Text) + Val(awt2_lbl.Text) + Val(awt3_lbl.Text)) / 3
                    awt_ans.Text = y
                ElseIf (a < c And c < b) Then
                    awt1_lbl.Text = Val(0)
                    awt2_lbl.Text = a + b
                    awt3_lbl.Text = a
                    y = (Val(awt1_lbl.Text) + Val(awt2_lbl.Text) + Val(awt3_lbl.Text)) / 3
                    awt_ans.Text = y
                ElseIf (b < a And a < c) Then
                    awt1_lbl.Text = a
                    awt2_lbl.Text = Val(0)
                    awt3_lbl.Text = a + b
                    y = (Val(awt1_lbl.Text) + Val(awt2_lbl.Text) + Val(awt3_lbl.Text)) / 3
                    awt_ans.Text = y
                ElseIf (b < c And c < a) Then
                    awt1_lbl.Text = a + b
                    awt2_lbl.Text = Val(0)
                    awt3_lbl.Text = a
                    y = (Val(awt1_lbl.Text) + Val(awt2_lbl.Text) + Val(awt3_lbl.Text)) / 3
                    awt_ans.Text = y
                ElseIf (c < a And a < b) Then
                    awt1_lbl.Text = a
                    awt2_lbl.Text = a + b
                    awt3_lbl.Text = Val(0)
                    y = (Val(awt1_lbl.Text) + Val(awt2_lbl.Text) + Val(awt3_lbl.Text)) / 3
                    awt_ans.Text = y
                ElseIf (c < b And b < a) Then
                    awt1_lbl.Text = a + b
                    awt2_lbl.Text = a
                    awt3_lbl.Text = Val(0)
                    y = (Val(awt1_lbl.Text) + Val(awt2_lbl.Text) + Val(awt3_lbl.Text)) / 3
                    awt_ans.Text = y
                End If


Can I simplify this VB.net code so I don't have to repeat so much?
===

I am creating a scheduling algorithm.  My code is getting very long. Can anyone suggest how can I make my code shorter as I have to repeat the same thing many times below and where the outer else is 4 or 5 I have to repeat it even more:

Here's an example of just part of my code:

     ElseIf Val(jobs_txt.Text) = 3 Then
                If (a < b And b < c) Then
                    awt1_lbl.Text = Val(0)
                    awt2_lbl.Text = a
                    awt3_lbl.Text = a + b
                    y = (Val(awt1_lbl.Text) + Val(awt2_lbl.Text) + Val(awt3_lbl.Text)) / 3
                    awt_ans.Text = y
                ElseIf (a < c And c < b) Then
                    awt1_lbl.Text = Val(0)
                    awt2_lbl.Text = a + b
                    awt3_lbl.Text = a
                    y = (Val(awt1_lbl.Text) + Val(awt2_lbl.Text) + Val(awt3_lbl.Text)) / 3
                    awt_ans.Text = y
                ElseIf (b < a And a < c) Then
                    awt1_lbl.Text = a
                    awt2_lbl.Text = Val(0)
                    awt3_lbl.Text = a + b
                    y = (Val(awt1_lbl.Text) + Val(awt2_lbl.Text) + Val(awt3_lbl.Text)) / 3
                    awt_ans.Text = y
                ElseIf (b < c And c < a) Then
                    awt1_lbl.Text = a + b
                    awt2_lbl.Text = Val(0)
                    awt3_lbl.Text = a
                    y = (Val(awt1_lbl.Text) + Val(awt2_lbl.Text) + Val(awt3_lbl.Text)) / 3
                    awt_ans.Text = y
                ElseIf (c < a And a < b) Then
                    awt1_lbl.Text = a
                    awt2_lbl.Text = a + b
                    awt3_lbl.Text = Val(0)
                    y = (Val(awt1_lbl.Text) + Val(awt2_lbl.Text) + Val(awt3_lbl.Text)) / 3
                    awt_ans.Text = y
                ElseIf (c < b And b < a) Then
                    awt1_lbl.Text = a + b
                    awt2_lbl.Text = a
                    awt3_lbl.Text = Val(0)
                    y = (Val(awt1_lbl.Text) + Val(awt2_lbl.Text) + Val(awt3_lbl.Text)) / 3
                    awt_ans.Text = y
                End If

