I have modified your following function a little bit to perform a simplest test for displaying the formula. Replace this function in your project and just check that spaces are maintained in the formulas.
Private Sub OpenExcelFile(ByVal pstrFilePath As String)
Dim objLoadOptions As LoadOptions
objLoadOptions = New LoadOptions
objLoadOptions.ParsingFormulaOnOpen = False
objWorkbook = New Aspose.Cells.Workbook(pstrFilePath, objLoadOptions)
Dim msg As String = String.Empty
For r As Integer = 2 To 8
msg &= objWorkbook.Worksheets(0).Cells(r, 4).Formula & Environment.NewLine
Catch ex As Exception
You may please review following code in your project which seems to create issue and try to change your logic for getting formula as mentioned above.
objCell = CType(objRangeEnumerator.Current, Aspose.Cells.Cell)
When this line of code is executed, it returns formula without space. Please change this construct with some other option and try your project again.