[SOLUCIONADO] Como pasar a negrita una palabra en un celda

[Kuhn92]

Buenas noches! Estoy pasando un listview a un Excel ya hace casi todo bien.. Pero el problema que se me presento es el siguiente:
Tengo este formato en las celdas

Código
Descripción

Estoy queriendo imprimir a través de una etiquetadora y lo que necesito es que el código este en negrita y la descripcion quede en formato común (todo en una misma celda).
Ejemplo:
3503
TUERCA HEXAGONAL ALTA P/ GRUESO 5/16

Trate de hacerlo de la siguiente manera:

For i = 0 To lArticulos.Items.Count - 1
oSheet.Cells(i + 1, 1).Font.Bold = True
oSheet.Cells(i + 1, 1).Value = lArticulos.Items(i).Text
oSheet.Cells(i + 1, 1).Font.Bold = False
oSheet.Cells(i + 1, 1).Value &= vbLf & lArticulos.Items(i).SubItems(1).Text
oSheet.Rows(i + 1).RowHeight = 55
oSheet.Cells(i + 1, 1).WrapText = True
Next

Pero obviamente no dio resultado.. Porque primero pone el texto en negrita y despues pone a la celda completa en texto standar ( sin negrita )

Si alguno tiene una idea.. me vendria de 10 ! :)

SOLUCIONADO

Hoy me puse a investigar de nuevo y encontré esta solución

For i = 0 To lArticulos.Items.Count - 1
Code = lArticulos.Items(i).Text
With oSheet.Cells(i + 1, 1)
.Value = lArticulos.Items(i).Text + " " & vbLf & lArticulos.Items(i).SubItems(1).Text
.Characters(Start:=1, Length:=5).Font.FontStyle = "Bold"
End With

oSheet.Rows(i + 1).RowHeight = 55
oSheet.Cells(i + 1, 1).WrapText = True
Next