VBでつめるためのファンクション?
'
Function tsumeru(str_temp, int_num)
Dim str_work0
Dim str_work1
' dim
str_work0 = str_temp
' str_work1 = StrConv(str_work0, vbFromUnicode)
str_work1 = StrConv(str_work0, 1)
Do While LenB(str_work1) > int_num
str_work0 = Left(str_work0, Len(str_work0) - 1)
str_work1 = StrConv(str_work0, 1)
Loop
tsumeru = str_work0
End Function