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