Added cell format set to scientific

I have put together this code to add a third row in the tabular note section.
The only problem I get is that the cell format category is set to scientific. But I want it to be set as text. The problem show up if the value is set to e.g. 1 then it will appear as 1.000000e+000 in the cell. Any suggestion to avoid this?

Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF

Module module01
Dim theSession As Session = Session.GetSession()
Dim theUfSession As UFSession = UfSession.GetUFSession()
Dim workPart As NXOpen.Part
Dim displayPart As NXOpen.Part
Dim numCols As Integer
Dim numRows As Integer
Dim rowTag As NXOpen.Tag
'Dim RowHeight2() As Double

Sub Main()
Dim theTabNoteTag As Tag
theTabNoteTag = Find_TabNote_of_Given_Name("ANTI_COLLAPSE_HOLE_TABLE")
Dim lw As ListingWindow = theSession.ListingWindow
lw.Open()
' ----------------------------------------------
If theTabNoteTag = Nothing Then
'no tabular notes to process
lw.WriteLine("No tabel named ANTI_COLLAPSE_HOLE_TABLE")
Return
End If
Dim numRows As Integer
theUfSession.Tabnot.AskNmRows(theTabNoteTag, numRows)
Dim numCols As Integer
theUfSession.Tabnot.AskNmColumns(theTabNoteTag, numCols)
'------------------------------------------------------------
'For creating a new third row
'-------------------------------------------------------------
For i As Integer = 0 To 0
Dim rowTag As Tag
theUfSession.Tabnot.AskNthRow(theTabNoteTag, i, rowTag)
theUfSession.Tabnot.CreateRow(7, rowTag)
theUfSession.Tabnot.AddRow(theTabNoteTag, rowTag, 2) 'The number in the end tells which row to add the extra row after
Next
End Sub

Public Function Find_TabNote_of_Given_Name(ByVal name As String) As Tag
Dim tempTag As Tag = Tag.Null
Dim tabNoteTag As Tag = Tag.Null
Dim theDispPart As Part = theSession.Parts.Display
Dim type, subType As Integer
Do
theUfSession.Obj.CycleByNameAndType(theDispPart.Tag, name, UFConstants.UF_tabular_note_type, False, tempTag)
If tempTag = NXOpen.Tag.Null Then
Continue Do
End If
theUfSession.Obj.AskTypeAndSubtype(tempTag, type, subType)
If subType = UFConstants.UF_tabular_note_section_subtype Then
theUfSession.Tabnot.AskTabularNoteOfSection(tempTag, tabNoteTag)
Return tabNoteTag
End If
Loop Until tempTag = NXOpen.Tag.Null ' No more tabular notes are found
Return Tag.Null
End Function
End Module