prompt = "إدخل درجة حرارة فهرنهايتية."

do
    ftemp = InputBox(Prompt, "الدرجة الفهرنهايتية ")

    if ftemp <> "0" Then

        C = Int((FTemp + 40) * 5 / 9) - 40)

هون خليت درجة الحرارة العادية تساوي المعادله بالقسمة والطرح

        MsgBox (Celsius), , "درجة مئوية"
   
 End If

Loop While FTemp <> "0"

End