Konversi suhu visual basic

Berikut ini adalah salah satu program untuk merubah suhu dari celcius ke reamur dan farenheit menggunakan visual basic.

Option Explicit
Dim c As Single, r As Single, f As Single

Private Sub Command1_Click()
    c = CSng(Text1)
    r = 4 / 5 * c
    f = 9 / 5 * c + 32
    Text2 = CCur(r)
    Text3 = CCur(f)
End Sub

Private Sub Command2_Click()
    End
End Sub