Du musst statt Dim Ohm as Word schreiben Dim Ohm as Single
dann sollte der Fehler nicht mehr auftreten.

Gruß
Detlef