ファイル操作関係のところで、”行ごと読み込みのコマンドボタンに記入”
などを見て、試してみたんですが、できなったところがあるので、
教えてください。

今やりたいことは、Text1に書かれている
”ABCDEFG123456”
というところから、12を読み取りたいのです。
そして、X=12とおこうと思ってます。

とりあえず1行読み込めれば、Mid関数を使えばいいかなという感じです。

なかなかうまくいきません。
ご存じの方がいらっしゃいましたら教えてください。

> 今やりたいことは、Text1に書かれている
> ”ABCDEFG123456”
> というところから、12を読み取りたいのです。
> そして、X=12とおこうと思ってます。
>
> とりあえず1行読み込めれば、Mid関数を使えばいいかなという感じです。
>

Debug.Print Mid$(Text1.Text, 8, 2)

行毎に分割したいなら
http://hanatyan.sakura.ne.jp/vbhlp/vb6kansu.htm
Split関数の使用例 参照

Private Sub Form_Load()
   Text1.Text = "ABCDEFG123456" & vbCrLf & "AB AB 34 56 10 45 AB" & vbCrLf & _
　　　　　　　　"FEFE60E004FD　FEFEE0600401FD"
End Sub

Private Sub Command1_Click()
   Dim AddDat   As Variant
   AddDat = Split(Text1.Text, vbCrLf)
   Debug.Print Mid$(AddDat(0), 8, 2)
End Sub

# 投稿の都度ハンドルネームを変更するなら、都度、環境や自己紹介等をするように。
(当サイトをご利用になるなら、初めにお読み下さいを読んでおいて下さい）

花ちゃんさんありがとうございました。
無事できました。
>
> >
> # 投稿の都度ハンドルネームを変更するなら、都度、環境や自己紹介等をするように。
> (当サイトをご利用になるなら、初めにお読み下さいを読んでおいて下さい）

すみません。一個のパソコンを複数で使っていて
その都度変えてました。。。
ややこしいので、今度から１台にひとつにします。
ごめんなさい。
これからもよろしくお願いします。