N文字数の文字列から最初の４文字と最後の６文字を取り除きたい。

例えば
"教えて！GOOはいいサイト！”
という１４文字の文字列があったとして
最初の４文字と最後の６文字を取り除いた

”GOOは”

という文字を取得したいのですが
これはどの関数を用いればよろしいでしょうか？
教えてください。

No.2 回答者： noname#22222 回答日時： 2006/08/04 16:15

まあ、色んなやり方があります。

Private Sub Command1_Click()
　　Dim L　　　 As Integer
　　Dim strText As String
　　
　　strText = "教えて！GOOはいいサイト！"
　　L = Len(strText & "")
　　If L > 9 Then
　　　　strText = Mid(strText, 5, L - 10)
　　　　MsgBox strText
　　End If
End Sub

この回答へのお礼

基本はmid関数を使うんですね。
ご親切にありがとうございました。

お礼日時：2006/08/04 18:44

No.1 ベストアンサー 回答者： merlionXX 回答日時： 2006/08/04 15:37

Sub test()

x = "教えて！GOOはいいサイト！"
MsgBox Mid(Left(x, Len(x) - 6), 5)
End Sub

この回答へのお礼

解り易いコード、ありがとうございます。
おかげさまで解決しました。

ありがとうございました。

お礼日時：2006/08/04 18:44