VB将TXT中特定的行提取到EXCEL中

Sub Macro1()
'
Dim R As Integer, zDATA As String, zG As Boolean
Dim sFName As String, iFNumber As Integer
Dim zBEG As String, zEND As String
'sFName = Application.GetOpenFilename("需要导入的数据(*.TXT), *.TXT", , &