Automate Email Message Text Dependent on Text Box value - excel

Question

I am trying to send an email through VBA that is populated with information from a userform, I can do this quite easily with the code that I have below,
The only problem I am having is some of the information is only required when it is a certain value in the form, for example, the colour will be standard as "Black" unless specified otherwise.
If the colour is set to "Black" in my userform I do not want to include it on the email, I only want it to show if they want another colour such as "White"
Is there an if statement that skips the whole line and continues the email if the text box is "Black" and will only include it on the email if it something other than black?
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = csemail_txt.Value
.CC = ""
.BCC = ""
.Subject = "Quote Reference: " & Quotenum_txt.Value
.Body = "Hello" & csname_txt.Value & vbNewLine & _
"Thank you for your enquiry, please find your quote below: " & vbNewLine & vbNewLine & _
"Product Code: " & ProductCode_Combo.Value & vbNewLine & _
"Dimensions: " & dimension_txt.Value & vbNewLine
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
minor correction ;-)

Answer 1

Option Explicit
Sub OutStr()
ColorStr = "white"
BodyStr = "Hello " & csname_txt.Value "!" & vbNewLine
If ColorStr = "black" Then
'We don't talk about the color if the color is black ;-)
'see https://www.google.com/search?q=henry+ford+color+black
'BodyStr = "The color will be black as you know!"
Else
BodyStr = BodyStr & "The color will be " & ColorStr & " as requested!" & vbNewLine
End If
BodyStr = BodyStr & "Your Board will have " & NrOfWheels & " wheels as requested!" & vbNewLine
if feature1 then BodyStr = BodyStr & "Let's talk about feature 1!" & vbNewLine
if feature2 then BodyStr = BodyStr & "Let's talk about feature 2!" & vbNewLine
if feature3 then BodyStr = BodyStr & "Let's talk about feature 3!" & vbNewLine
MsgBox BodyStr
End Sub