Temperature Conversion from Fahrenheit to Celsius and Kelvin

Public Class Form1
    Dim f, c, k As Single
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        f = TextBox1.Text
        c = (5 / 9) * (f - 32)
        k = c + 273.15
        TextBox2.Text = c
        TextBox3.Text = k

    End Sub
End Class