TestEIn 1.6n2 :

- aggiornamenti.

GenInterface.vb

@@ -1,6 +1,7 @@
 Imports System.Runtime.InteropServices
 Imports System.Text
 Imports TestEIn.EgtInterface
+Imports System.Globalization
 
 Public Module GenInterface
 
@@ -20,7 +21,15 @@ Public Function GetPrivateProfileDouble(
                              ByVal lpFileName As String) As Double
    Dim sValue As String = String.Empty
    GetPrivateProfileString(lpAppName, lpKeyName, dDefault.ToString(), sValue, lpFileName)
-   Return Double.Parse(sValue, System.Globalization.CultureInfo.InvariantCulture)
+   Dim nPos As Integer = sValue.IndexOf(";")
+   If nPos >= 0 Then
+      sValue = sValue.Remove(nPos)
+   End If
+   Dim dValue As Double
+   If Not Double.TryParse(sValue, NumberStyles.Float, System.Globalization.CultureInfo.InvariantCulture, dValue) Then
+      dValue = dDefault
+   End If
+   Return dValue
 End Function
 
 <DllImport("kernel32.dll", CharSet:=CharSet.Unicode)>