下記を試して下さい。詳しくはヘルプで Mid 関数を調べて下さい。又、ここの[VB簡易リファレンス]を一通り目を通しておいて下さい。Private Sub Command1_Click() Dim myText As String myText = "ABCDEFG" MsgBox Mid$(myText, 2, 3)End Sub