This is my scenario:

Private Sub Cbn_Send_Click()
Dim OutObj As Object ' Late binding
Dim Email As Object
Dim Msg As String
Dim Ind As Integer
Dim sReceiver As String
' Find mail adress
sReceiver = Worksheets("Param").Range("A:A").Find(What:=Me.ComboBox1.Value).Offset(0, 1).Value
' Create OUTLOOK instance
Set OutObj = CreateObject("Outlook.Application")
' Create container object for mail
Set Email = OutObj.CreateItem(0)
' Create email : Object, corp post, receiver
Email.Subject = "Notification of Issue"
' Initialize message
Msg = ""
' For control 1 to 13 in USF
For Ind = 1 To 13
If Ind < 13 Then
Msg = Msg & Me("Label1" & Ind).Caption & " : " & Me("ComboBox1" & Ind).Value & vbCrLf
Else
Msg = Msg & Me("Label4" & Ind).Caption & " : " & Me("ComboBox2").Value & vbCrLf
Else
Msg = Msg & Me("Label2" & Ind).Caption & " : " & Me("ComboBox3").Value & vbCrLf
Else
Msg = Msg & Me("Label5" & Ind).Caption & " : " & Me("TextBox1").Value & vbCrLf
Else
Msg = Msg & Me("Label3" & Ind).Caption & " : " & Me("ComboBox4").Value & vbCrLf
Else
Msg = Msg & Me("Label6" & Ind).Caption & " : " & Me("ComboBox5").Value & vbCrLf
Else
Msg = Msg & Me("Label7" & Ind).Caption & " : " & Me("TextBox3").Value & vbCrLf
Else
Msg = Msg & Me("Label8" & Ind).Caption & " : " & Me("ComboBox6").Value & vbCrLf
Else
Msg = Msg & Me("Label9" & Ind).Caption & " : " & Me("TextBox4").Value & vbCrLf
Else
Msg = Msg & Me("Label10" & Ind).Caption & " : " & Me("TextBox5").Value & vbCrLf
Else
Msg = Msg & Me("Label11" & Ind).Caption & " : " & Me("TextBox6").Value & vbCrLf
Else
Msg = Msg & Me("Label12" & Ind).Caption & " : " & Me("ComboBox7").Value & vbCrLf
Else
Msg = Msg & Me("Label13" & Ind).Caption & " : " & Me("TextBox7").Value & vbCrLf

End If
Next
' Register message in body
Email.Body = Msg
' Possible to add attachment
'Email.Attachments.Add sPath & sFic
'
Email.To = sReceiver
' Send mail directly
'Email.Send
' Or see mail
Email.Display
' Clean object
Set Email = Nothing
Set OutObj = Nothing

End Sub

Thanks again