Excel - XML Number Format (All Data To Come In With One Decimal Place)

I am trying to export a range of data from excel to xml. I have a module that puts the range of data into one cell:

Code:

Function Concat(myRng As Range)
Dim myStr As String
Dim c As Range
myStr = ""
For Each c In myRng
If c.Value "" Then myStr = myStr & ", " & Chr(34) & c.Value & Chr(34)
Next
Concat = Mid(myStr, 2, 9999)
End Function

How to all data to come in with one decimal place (eg. "4.5","5.0",7.0")

Right now it looks like this:

("4.5","5",7")