おはようございます。VB.NETの質問です。NameBufferへコンピュータ名を16文字長で取得しました。NameBufferは「****    」と、コンピュータ名****の後16文字目までNullCharが入っています。この文字列のコンピュータ名以降のNullCharを取り除きたいのですが、以下のコードを実行するとPcNameの部分で「Lengthは0またはそれ以上の値が必要です」と例外エラーが発生します。どういう処理が必要でしょうか？

Dim NameBuffer As String

Dim PcName As String



NameBuffer = Environment.MachineName

NameBuffer = LSet(NameBuffer, 16)



PcName = Strings.Left(NameBuffer, InStr(NameBuffer, vbNullChar) - 1)