'文字列検索取得 'Left・Right・Mid関数 Dim str As String = "123456789" Dim ans As String 'Left関数 右から2桁の文字列取得 ans = Strings.Left(str, 2) Debug.Print(ans) 'and = 12 'Right関数 左から2桁の文字列取得 ans = Strings.Right(str, 2) Debug.Print(ans) 'ans = 89 'Mid関数　 3桁目から5桁の文字列取得 ans = Strings.Mid(str, 3, 5) Debug.Print(ans) 'ans = 34567