Set tf_txt = tf.OpenTextFile(pth & "\jwc_temp.txt", 1, True)
Do Until tf_txt.AtEndOfStream
    tmp = tf_txt.readline                       '1行読み込み
    If Left(tmp, 3) = "hp2" Then
        kiten_tmp = Split(Right(tmp, Len(tmp) - 6))
        x0 = kiten_tmp(0)
        y0 = kiten_tmp(1)
        Exit Do
    End If
Loop
End