Module Module1
sub Main()
dim aByte() as byte = Text.Encoding.default.GetBytes("FirstString")
dim bByte() as byte = Text.Encoding.default.GetBytes("SecondString")
dim ccByte() as byte = Text.Encoding.default.GetBytes("ThirdString")
dim mergedByte(aByte.Length + bByte.Length) as byte
aByte.CopyTo(mergedByte, 0)
bByte.CopyTo(mergedByte, aByte.Length)
ccByte.CopyTo(mergedByte, aByte.Length + 1 + ccByte.Length)
Console.WriteLine(System.Text.Encoding.default.GetString(mergedByte))
Console.Read()
end sub
end Module