try
Sub readtextfile()
Dim oFSO As New FileSystemObject
Dim txt As String
Dim arr As Variant, a(), x
Dim i As Integer, ii As Integer
Dim maxCol As Long
txt = oFSO.OpenTextFile("C:\documents and settings\jaspeh\desktop\allmunis.txt").ReadAll
arr = Split(txt, vbCrLf)
ReDim a(1 To UBound(arr) + 1, 1 To 500)
For i = 0 To UBound(arr)
x = Split(arr(i), vbTab)
maxCol = Application.Max(maxCol, UBound(x) + 1)
For ii = 0 To UBound(x)
a(i + 1, ii + 1) = x(ii)
Next ii, i
Sheets(1).Cells(1).Resize(UBound(a, 1), maxCol).Value = a
End Sub
Bookmarks