'Zwei Hilfsvariablen für die TryParse-Methode erstellen (vor der 
' Datensatz-Schleife)
Dim st As Globalization.NumberStyles = _
  Globalization.NumberStyles.AllowDecimalPoint
Dim cult As Globalization.CultureInfo = _
Globalization.CultureInfo.InvariantCulture
 
 
 
'In der Schleife: Für jeden Datensatz ... (row / orow)
 
'Initialisierungswerte zuweisen
orow("Versandkosten") = ""
orow("Preis") = ""
 
'Bedingungen für SP_6 bearbeiten
If Decimal.TryParse(row("SP_6").ToString, st, cult, dec) Then
   If dec <= 70 Then
      orow("Versandkosten") = "5,9"
   Else
      orow("Versandkosten") = "0"
   End If
 
   If dec = 0 Then
      orow("Preis") = row("SP_5")
   End If
End If
 
'.... weitere Bedingungen für andere Spalten entsprechend