Se ti serve per vb 6 è questo:
Attribute VB_Name = "Module1"
Global A_PolynomialOrder, B_PolynomialOrder As Integer
Public Function GetValue(StringValue)
Position = InStr(1, StringValue, ",")
If Position <> 0 Then
GetValue = Val(Left(StringValue, Position - 1) + "." + Right(StringValue, Len(StringValue) - Position))
Else
GetValue = Val(StringValue)
End If
End Function