Dim PcName As String PcName = Environment.MachineName
'PcNameが16文字以下の場合、16文字になるように右側にスペースを埋め、16文字以上の場合は、左から16文字までで切り捨てる。 PcName = PcName.PadRight(16).Substring(0, 16)