كود
Prompt = "إدخل  درجة  حرارة فهرنهايتية."
Do
FTemp = InputBox(Prompt, "الدرجة الفهرنهايتية إلى مئوية")
If FTemp <> "" Then
Celsius = Int((FTemp + 40) * 5 / 9 - 40)
MsgBox (Celsius), , "درجة حرارة في مئوية"
End If
Loop While FTemp <> ""
End