Sub extraction()
Workbooks.OpenText Filename:="C:\BMCI.txt", Origin:=xlMSDOS, StartRow:=1 _
, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array(120, 1)), TrailingMinusNumbers:=True
i = 1
Do While IsEmpty(Cells(i, 2)) = False
x = Len(Cells(i, 2))
If x > 120 Then
Cells(i + 1, 1) = Left(Cells(i, 2), 120)
Cells(i + 1, 2) = Right(Cells(i, 2), x - 120)
Else
Cells(i + 1, 1) = Cells(i, 2)
End If
i = i + 1
Loop
Columns(2).ClearContents
End Sub