How to stop macro from treating comma as a new line character while copying for a text fil

Try this..

Sub Open_File()
Dim strFile As String
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = ThisWorkbook.Path
    If .Show <> -1 Then Exit Sub
    strFile = .SelectedItems(1)
    Open strFile For Input As #1
    i = 1
    Do While Not EOF(1) ' Loop until end of file.
        Line Input #1, Text
        Sheets("Workspace").Range("A" & i) = Text
        i = i + 1
    Loop
    Close #1
End With
End Sub

Line Input is the syntax, in case you want to delimiter as line.