substr($target_str,0,2)
VBAは良く知らんがN88BasicのMIDの感じだな。