با سلام و خسته نباشید

دوستان عزیز میخواستم یه برنامه بنویسم که دمای هوا رو بگیره و به فارنهایت تبدیل کنه ممنون میشم اگر کمکم کنید.

در ضمن یه برنامه هم نوشتم ولی اشتباه بود اونم اینه

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim count AsInteger

Dim print AsInteger

count = Val(TextBox1.Text)
print = 32 + 9 / 5 * count

Label3.Text = Str(print)
EndSub

با تشکر