プログラマー始めました。

　Dim strData As String: strData = "ﾊﾝｶｸ全角"             	''対象文字列
　Dim intDataLength As Integer: intDataLength = Len(strData)　	''対象文字列のバイト長
　Dim intByte As Integer: intByte = 3           			''指定バイト数
　Dim strSliceData As String                              	''切り出し文字列格納用

　strSliceData = strConv(MidB(strConv(strData,vbFromUnicode),1,intByte),vbUnicode)
　Call MsgBox(strSliceData)

　Dim strData As String: strData = "ﾊﾝｶｸ全角"             	''対象文字列
　Dim intDataLength As Integer: intDataLength = Len(strData)　	''対象文字列のバイト長
　Dim intByte As Integer: intSliceSize = 3           		''指定バイト数
　Dim strSliceData As String                              	''切り出し文字列格納用
　Dim strChar As String						''切り出し文字格納用
　Dim intLoopCount As Integer					''ループ変数

　For intLoopCount = 1 To intDataLength
　　''全角半角問わず、1文字切り出し
　　strChar = Mid(strData, intLoopCount, 1)

　　''前回までに切り出した文字列と今回の文字を足したものが指定バイト数を超えていないか確認
　　If (LenB(StrConv(strSliceData  & strChar, vbFromUnicode)) <= intByte Then
　　　strSliceData = strSliceData & strChar
　　Else
　　　Exit For
　　End If
　Next

　Call Msgbox(strSliceData)

　　data = "ﾊﾝｶｸ全角"	#対象文字列
　　sliceSize = 3		#対象文字列のバイト長
	
　　echo data.slice(sliceSize)

　　$str = 'ﾊﾝｶｸ全角';
　　$byte = 3;
	
　　echo = mb_strcut($str,0,$byte,'SJIS');