What if I would like to show the caption and/or value of every control on the form into the email body?

I'm having trouble...thanks in advance. I tried something like below but, how would I have the body of the email include everything found in the loops? 

Sub Send_Mail(myfile As String)    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim strTo As String
    Dim strSubject As String
    Dim strBody As String
    Dim sig$
    
    Dim ctl2 As Control
    Dim ctl3 As Control
    Dim show1 As String
    Dim show2 As String
    
    
    'strSubject = Me.Caption
    
For Each ctl2 In Me.frameDealType.Controls
For Each ctl3 In Me.frameDealType.Controls


    If TypeName(ctl2) = "TextBox" Then
        If ctl2.Value <> "" Then
            show1 = ctl2.Value
        End If
    End If


    If TypeName(ctl3) = "CheckBox" Or TypeName(ctl3) = "OptionButton" Then
        If ctl3.Value = True Then
            show2 = ctl3.Caption
        End If
    End If
    
Next ctl3
Next ctl2