why after decimal show only zero vb2008

i

have four text box i use below formula, when i put number 16 in tb1  & 3 in tb2 then tb3 show result according to my formula =5.0 but i want it show complete value 5.3 in sted of 5.0 my code is below 

Public Class Form1

   

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
       
    End Sub

    Private Sub textbox3_textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
        Dim input As Int32
        input = TextBox3.Text

        ' one digit decimal
        TextBox3.Text = String.Format("{0:n1}", input)
        'Do your work

           

    End Sub


    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        
    End Sub

    Private Sub txtName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtName.TextChanged
        Dim a, b, c As Integer
        a = TextBox1.Text
        b = TextBox2.Text
        c = a / b
        TextBox3.Text = c
    End Sub
End Class