Imports System.Text Class Sample Public Shared Sub Main() Dim sb As New StringBuilder() Dim xUInt16 As UShort = 8 sb.Append(xUInt16) Dim str As [String] = sb.ToString() Console.WriteLine("The appended string is:") Console.WriteLine(str) End Sub End Class