Visual Basic - Contenido de Un archivo en un label

HOLA AMIGOS QUISERA SABER COMO PONGO EL CONTENIDO DE UN ARCHVO *.TXT EN UN LABEL QUE ESTA EN EL FORMULARIO, GRACIAS

Dim fso As New Scripting.FileSystemObject
Dim ts As TextStream
Dim Line As String

Set ts = fso.OpenTextFile("archivo.txt", ForReading, False)
Do While Not ts.AtEndOfStream
Line = ts.ReadLine
label1 = label1 & Line & vbCrLf
Loop

(El vbCrLf es opcional, depende si pusiste el wordwrap del label en true o no)