Marshal VT_R4 (4 byte float).

dlls/oleaut32/tmarshal.c

diff --git a/dlls/oleaut32/tmarshal.c b/dlls/oleaut32/tmarshal.c
index 1d12e2f..0f86321 100644
--- a/dlls/oleaut32/tmarshal.c
+++ b/dlls/oleaut32/tmarshal.c
@@ -420,6 +420,7 @@
     case VT_UI4:
     case VT_UINT:
     case VT_I4:
+    case VT_R4:
     case VT_UI2:
     case VT_UI1:
 	hres = S_OK;
@@ -764,7 +765,7 @@
 	    }
 	}
         case VT_ERROR:
-	case VT_BOOL: case VT_I4: case VT_UI4: case VT_UINT:
+	case VT_BOOL: case VT_I4: case VT_UI4: case VT_UINT: case VT_R4:
         case VT_UI2:
 	case VT_UI1:
 	    if (readit) {