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