Insering newline at every space

I have a text file with data arranged in the following order:

Name Address Name Address Name Address ... so on

I want to arrange it like:

Name
Address
Name
Address
Name
Address
.
.
.
so on

How can I achieve this using VBA??
I figured out that at every space, if I insert a new line than it will be solved.. but no idea how to do that??

So my program is required to check a text file and insert a newline at every space it finds


Regards

post a sample file...

Originally Posted by Rem0ram

post a sample file...

sample file is attached

Data.txt

Does this help?

Sub mandukes()
Range(Cells(2, 1), Cells(2, ActiveSheet.UsedRange.Columns.count)).Copy
Cells(3, 1).PasteSpecial Transpose:=True
Range(Cells(2, 1), Cells(2, ActiveSheet.UsedRange.Columns.count)).Delete
End Sub

assumes original data is on row 2.

Maybe:

Sub mandukes()
    Range("A2").Select
    Selection.TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
        TrailingMinusNumbers:=True
Range(Cells(2, 1), Cells(2, ActiveSheet.UsedRange.Columns.count)).Copy
Cells(3, 1).PasteSpecial Transpose:=True
Range(Cells(2, 1), Cells(2, ActiveSheet.UsedRange.Columns.count)).Delete
End Sub

Assumes original data is on row 2 of a spreadsheet.