Temperature Conversion from Kelvin to Celsius and Fahrenheit

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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class