IsMultiChar ( String )
Dim buff buff = GetGV ( "#" ) If IsMultiChar ( buff ) Then MessageBox ( “項番” + buff ) Else MessageBox ( "#" + buff ) End If