Excel 2007 :: Change Macro And Add Single Quotes?

I have a macro that imports text file and puts a comma after each number (alphanumeric also). I have tried to change it to put single quote around the number and comm afterwards.

Text file listing
123
456
789

When I run my marco I get the following
123, 456, 789
which is what I want...

Now I want the same text to have single quotes around the data example:
'123', '456', '789'

All that I have tried to adjust keeps missing single quote at the front end and also missing the single quote at the rear end example: 123', '456', '789

Here is the vba I'm running

Sub GetserialNumbers()
Dim FileNum As Long, PathAndFileName As String, TextFromFile As String
Const Delimiter As String = ", "

[Code].....

Whe I run this I have to select the text file to get. I keep it in my documents as a quick access. I'm using MS VBA 6.5 Excel 2007 Windows 7 Enterprise.