Danke schön, nun funktioniert es wie es soll.

Blos hab ich immernoch nicht verstanden was genau ein String ist.

Dim RPM2 as String*5 <- damit lege ich fest das der String 5 Zeichen lang ist?