Round E- specific digits data from excel data table and paste into .txt

Hello Team,

I am reading excel sheet and excel row data length can be more than 10 digits (-5.19999302923679E-05) in any columns, if digits length is looks -5.19999302923679E-05 then convert to -5.19999E-05 . Please find the screenshot, my code and workflow to help me resolve that issue.

VB .Net Code:

Dim d As Decimal
Dim e As Int32
var_KEFC_DT.AsEnumerable.ToList.ForEach(Sub(r)
var_KEFC_DT.Columns.Cast(Of DataColumn).ToList.ForEach( Sub(c)
If (Decimal.TryParse(r(c).ToString,d) AndAlso d<>0 AndAlso d.ToString.Length>10) Then
e =CInt(Math.Floor(Math.Round(Math.Abs(d))))
r(c)=Math.Round(d/(Math.Pow(10,e)),9,MidpointRounding.AwayFromZero)*Math.Pow(10,e)
End If
End Sub
)
End Sub
)


Manual output.txt (305 Bytes)
BOT output.txt (327 Bytes)
Input.xlsx (8.9 KB)
_Test.xaml (9.1 KB)