Найти ошибку в коде расчетной программы

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim a As Integer
        Dim b As Integer
        Dim c As Integer
        Dim a1 As Integer
        Dim a2 As Integer
        Dim a3 As Integer
        Dim f1 As Integer
        Dim f2 As Integer
        Dim f3 As Integer
        Dim f4 As Integer
        Dim f5 As Integer
 
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        c = Val(TextBox3.Text)
 
        If a = 5 Then
            f1 = a * ((100 / b) / 100) * c
            a1 = a - f1
            f2 = a1 * ((100 / b) / 100) * c
            a2 = a1 - f2
            f3 = a2 * ((100 / b) / 100) * c
            a3 = a2 - f3
            f4 = a3 * ((100 / b) / 100) * c
            f5 = a - (f1 + f2 + f3 + f4)
        ElseIf a = 4 Then
            f1 = a * ((100 / b) / 100) * c
            a1 = a - f1
            f2 = a1 * ((100 / b) / 100) * c
            a2 = a1 - f2
            f3 = a2 * ((100 / b) / 100) * c
            f4 = a - (f1 + f2 + f3)
        ElseIf a = 3 Then
            f1 = a * ((100 / b) / 100) * c
            a1 = a - f1
            f2 = a1 * ((100 / b) / 100) * c
            f3 = a - (f1 + f2)
        ElseIf a = 2 Then
            f1 = a * ((100 / b) / 100) * c
        End If
 
        ListBox1.Items.Add(f1)
        ListBox2.Items.Add(f2)
        ListBox3.Items.Add(f3)
        ListBox4.Items.Add(f4)
        ListBox5.Items.Add(f5)
 
    End Sub

 Button1_Click_1(sender As Object, e As EventArgs) Handles