VBA Zahlen umrechnen Meter -> Millimeter

Wie kann ich in VBA [Excel] Zahlen umrechnen??

Meter -> Millimeter
Meter

Hi

Private Function GetMillimeter(byval sngMeter as Single) as Single
GetMillimeter = sngMeter * 1000
end function

Private Function GetMeter(byval sngMillimeter as Single) as Single

GetMeter = sngMillimeter / 1000
end function

gruss, Giuseppe

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]