i'm newbie. i have to study and edit from other person code

example text file you can use above information line that i post

thank you a lot
--------------------------------------------------

Option Explicit

Sub TestImport()
Call ImportTextFile(Sheet2.Range("B1") & "\" & Sheet2.Range("B2") & ".txt", ":", Sheet2.Range("A4"))
End Sub

Public Sub ImportTextFile(strFileName As String, strSeparator As String, rngTgt As Range)
Dim lngTgtRow As Long
Dim lngTgtCol As Long
Dim varTemp As Variant
Dim strWholeLine As String
Dim intPos As Integer
Dim intNextPos As Integer
Dim intTgtColIndex As Integer
Dim wks As Worksheet

Set wks = rngTgt.Parent

intTgtColIndex = rngTgt.Column
lngTgtRow = rngTgt.Row

Open strFileName For Input Access Read As #1

While Not EOF(1)
Line Input #1, strWholeLine
If Right(strWholeLine, 1) <> strSeparator Then
strWholeLine = strWholeLine & strSeparator
End If
lngTgtCol = intTgtColIndex
intPos = 1
intNextPos = InStr(intPos, strWholeLine, strSeparator)
While intNextPos >= 1
varTemp = Mid(strWholeLine, intPos, intNextPos - intPos)
Cells(lngTgtRow, lngTgtCol).Value = varTemp
intPos = intNextPos + 1
lngTgtCol = lngTgtCol + 1
intNextPos = InStr(intPos, strWholeLine, strSeparator)
Wend
lngTgtRow = lngTgtRow + 1
Wend

Close #1
Set wks = Nothing
End Sub