'1.Schritt: den Wert in der Zelle als String lesen
Dim val As String = row("SP_8").ToString
 
'2.Schritt: eine Dezimalzahl-Variable erstellen
Dim dec As Decimal
 
'3.Schritt: Versuch, den String in die Dezimalvariable als Zahl einzutragen
If Decimal.TryParse(val, dec) Then
   '4. Schritt: Bedingung prüfen = Ausprägung der Dezimalzahl 
   If dec => 70 Then
       orow("SP_01") = "1,0" 'Zuweisung des gew. Wertes als String
   Else
       orow("SP_01") = "0,0"
   End If
Else
    'Bedingung: Der Zellinhalt ist nicht numerisch
     orow("SP_1") = "" 'Leerstring oder Missing-Kennung zuweisen
End If