Valor de celda en un Label

[kraquem]

Hola, por favor quisiera saber como mostrar los valores de tres celdas (A1, B1, C1) en tres diferentes labels al abrir un formulario, intenté con el siguiente codigo, pero me da error.

Private Sub CommandButton1_Click()
Dim celda As Range
Dim strmsj$
For Each celda In Range("A1:C1")
If celda <> "" Then
strmsj$ = strmsj$ & celda & vbCrLf
End If
Next
End Sub

Label1=(A1)
Label2=(B1)
Label3=(C1)


Desde ya gracias a todos por su ayuda.

Saludos.