تبدیل ابجکت به بایت

[reza71 32]

دوستان یک نوع نوع ابجکت خودم تعریف کردم میخوام تبدیل به بایت بشه چکار کنم؟

Type user (username As String, pass As String)

CreateMessage("ali","123456")

Sub CreateMessage(userAs String,pass as string) As Byte()
	Dim m As user 
	m.Initialize
	m.username = Body
	m.pass = pass 

حالا نمیدونم چجوری این ابجکت رو تبدیل کنم به بایت 

     Dim byte2(2) As Byte
     byte2(0) = username.GetBytes("UTF-8")
     byte2(1) = pass.GetBytes("UTF-8")

	Return byte2
End Sub

این کد رو نوشتم بایت رو اشتباه برمیگردونه