El procedimiento es igual para el textbox que para el label.
Lo que tu estás pidiendo técnicamente es esto.
Hoja1 es la hoja donde tienes el formulario.
TextBox21 y Label21 el textbox y el label
Hoja1. TextBox21.Text = CStr(Hoja1. Range("A1"). Value) '<--- Para que coja el valor de la celda A1 y lo ponga en el textbox
Hoja1.TextBox21.Text = Format(Hoja1.TextBox21.Text, "#,#")
Hoja1.Label21.Caption = CStr(Hoja1.Range("A1").Value)
Hoja1.Label21.Caption= Format(Hoja1.Label21.Caption, "#,#")
El ##,## es el mismo formato que se usa para las celdas
Para verlos todos haces botón derecho en una celda,
Aprietas formato de celdas y señalas personalizadas, abajo del todo.
Los valores # son factores opciones y los 0 son valores obligatorios
Pongo varios ejemplos para que veas los cambios:
Con el número 123456.123465
0 123456 Solo la parte entera
0.0 123456.1 Parte entera + 1 decimal
0.00 123456.12 Parte entera + 2 decimales
#,# 123.456 Agrega el punto de los miles
#,#0.00 Agrega el punto de los miles + deja 2 decimales