Function GetPATVar1(ByVal sPATId As String, ByVal sPATVariable As String) As Double
GetPATVar1 = GetPATVarCol(sPATId, sPATVariable, 5)
End Function 'GetPATVar
Просто переписал GetPatVar. Там сразу имеем число вне зависимости от настроек разделителей в Галек и Виндах.
Может кому поможет
