I think the regional settings are different on your server. You need to parse the number unsing specific culture:
Dim number As Double
number = Double.Parse(
aFld.Extract(11).StringValue,
System.Globalization.NumberStyles.Number,
System.Globalization.CultureInfo.InvariantCulture)
If number < 0 Then
...