pbm avec les label

bonjour
mon code ci dessous ne marche pas.est ce qu une ame charitable pourrait venir a mon secour.
merci d avance


Private Sub userform_Initialize()

Dim nodes1 As Integer
Dim elem1 As Integer

nodes1 = (Sheets('inputs').Range('F30').Value) / (const_el_length.Value) + 1
elem1 = (Sheets('inputs').Range('F30').Value) / (const_el_length.Value)
'Label3.Caption = '(Sheets('inputs').Range('F30').Value) / (const_el_length.Value) + 1'
'Label4.Caption = '(Sheets('inputs').Range('F30').Value) / (const_el_length.Value) + 1'

Label3.Caption = nodes1
Label4.Caption = elem1

End Sub