请问这个SCL程序怎么转换为精致面板上的VB程序？

FUNCTION_BLOCK Fung_1V_5

VAR_INPUT  
In:    REAL ;//   retain    in  
ZUIDU_INPUT :  REAL;//RETAIN IN  
X1:    REAL ;//   retain    in    
X2:    REAL ;//   retain    in    
X3:    REAL  ; // retain    in    
X4:    REAL ; //  retain    in    
X5:    REAL ; //  retain    in    
//X6:    REAL ; //  retain    in    
//X7:    REAL ; //  retain    in    
Y1:    REAL ; //  retain    in    
Y2:    REAL ; //  retain    in    
Y3:    REAL ; //  retain    in    
Y4:    REAL ; //  retain    in    
Y5:    REAL ; //  retain    in    
//Y6:    REAL ; //  retain    in    
//Y7:    REAL ; //  retain    in    
END_VAR
VAR_OUTPUT 
    Out:    REAL ; //  retain    out    
    Error:    BOOL; //   retain    out    0
END_VAR

VAR
     K1:  REAL;
     K2:  REAL;
     K3:  REAL;
     K4:  REAL;
     K5:  REAL;
     
END_VAR
   BEGIN
  
    K1:= 1-(ZUIDU_INPUT*Y1)/100;
    K2:= 1-(ZUIDU_INPUT*Y2)/100;
    K3:= 1-(ZUIDU_INPUT*Y3)/100;
    K4:= 1-(ZUIDU_INPUT*Y4)/100;
    K5:= 1-(ZUIDU_INPUT*Y5)/100;
   IF In >= X1 AND In < X2 THEN
   Out := K1 + (In - X1) * (K2 - K1)/(X2 - X1);
ELSIF In >= X2 and In < X3 THEN
   Out := K2 + (In - X2) * (K3 - K2)/(X3 - X2);
ELSIF In >= X3 and In < X4 THEN
   Out := K3 + (In - X3) * (K4 - K3)/(X4 - X3);
ELSIF In >= X4 and In < X5 THEN
   Out := K4 + (In - X4) * (K5 - K4)/(X5 - X4);
//ELSIF In >= X5 AND In < X6 THEN
  // Out := Y5 + (In - X5) * (Y6 - Y5)/(X6 - X5);
//ELSIF In >= X6 AND In < X7 THEN
   //Out := Y6 + (In - X6) * (Y7 - Y6)/(X7 - X6);
ELSIF In >= X5  THEN
      Out := K5;
      Error := True;
   ELSIF In < X1 THEN
      Out := K1;
      Error := True;
   ELSE
      Error := False;
   END_IF;
END_IF;
END_FUNCTION_BLOCK