Konfersi celcius ke reamur dan farenheit dengan VB6

Sekarang saiya mencoba untuk membuat konfersi dari celcius ke reamur dan farenheit dengan menggunakan vb6 untuk pertama siapkan form dengan format sebagai barikut

label1:text : sekala celcius
teaxbox:  name: text1
label2 :text sekala reamur
lebel3 : text sekala fareinheit
label4 : name : lblferenheit
label5 : name : lblreamur
command1 : name bhitung
                    text: Hitung
command2: name bkeluar
                  text Keluar

The code
Private Sub Command1_Click()
Dim fer As Integer
Dim rer As Integer

rer = (Text1.Text * (4 / 5))
lblreamur.Caption = rer & " " & "R"

'keterangan rumus reamur adalah celcius x (4/5)

fer = ((Text1.Text * (9 / 5)) + 32)
lblferenheit.Caption = fer & " " & "F"
'keterangan rumus farenheit celcius x (9/5)+32
End Sub

Private Sub Command2_Click()
Unload Me
'perintah untuk keluar
End Sub