Problem wurde gelöst:

Code:
Dim expo as Byte
Dim var1 as Single

do

for expo = 1 to 10
     if var1 > = 1.0 then
        exit for
     else 
        var1 = var1 *10
     end if
next expo
In Var1 steht mein Singlewert, der bis 1.0 hochmultipliziert wird. Expo beinhaltet wie oft die Schleife durchlaufen wird und gibt mir so den Wert für den Exponenten.
Da ja nun var1 durch die Schleife hochmultipliziert wird, bekomme ich auch so meine Mantisse in der Anzeigeform 7.233.

Gruß Matthias