Sub ki029()
Dim fff1 As String

fsitei = "テキストファイル指定"
fff = Application.GetOpenFilename(Title:=fsitei)
     
Sheets("Sheet1").Select
Cells(1, 1) = "No"
Cells(1, 2) = "NAME"
Cells(1, 3) = "EMAIL"
Cells(1, 4) = "ADDNO"
Cells(1, 5) = "ADDRESS "
Cells(1, 6) = "MESSAGE"

'txtデ−タ取り込み
    i = 1: j = 0: keis = 3: toki = 1
    Open fff For Input As #1
   j = 6
Do Until EOF(1)
    Input #1, dat
    
s1 = InStr(1, dat, "=", 1)
keis = 3
If s1 > 0 Then
    dat1 = Left(dat, 4)
    dat = Mid(dat, s1 + 1)
Else
    keis = 2
End If
'スタ−ト位置
   If dat1 = "NAME" Then
        j = 1
        keis = 1
   End If

'セルへ書き込み
    Select Case keis
        Case 1
             i = i + 1
             Cells(i, 1) = i - 1
             j = j + 1
             Cells(i, j) = dat
        Case 2
            Cells(i, j) = Cells(i, j) & dat
        Case 3
            j = j + 1
            Cells(i, j) = dat
    End Select
Loop
Close #1
End Sub