Als estes kannst du den Wert Const Ref direkt eingeben also 0.004975. Das Spart Speicherkapazität.
Um den angezeigten Wert zu berichtigen änderst du die Zeile
Temp = Z1 * 0.5 in
Temp = Z1 * 0.367
dann sollte der angezeigte Wert mit dem Messwert übereinstimen.