VR GetValue

if(sVR == "AE" || sVR == "CS" || sVR == "LO" ||
   sVR == "LT" || sVR == "PN" || sVR == "SH" ||
   sVR == "ST" || sVR == "UI")
{
  InsertString(iTag, sValue);
}
else if(sVR == "IS" || sVR == "SL" || sVR == "UL")
{
  InsertLong(iTag ,StrToInt(sValue));
}
else if(sVR == "DA")
{
  InsertDate(iTag, sValue);
}
else if(sVR == "TM")
{
  InsertTime(iTag, sValue);
}
else if(sVR == "AS")
{
  InsertAge(iTag, StrToFloat(sValue));
}
else if(sVR == "DS")
{
  InsertDouble(iTag, StrToFloat(sValue));
}
else if(sVR == "SS" || sVR == "US")
{
  InsertShort(iTag, StrToFloat(sValue));
}