Dim msg As String msg = msg + "" msg = msg + "" msg = msg + "" msg = msg + " " msg = msg + " " msg = msg + "" msg = msg + " " msg = msg + " " msg = msg + "" msg = msg + "" msg = msg + "" msg = msg + " " msg = msg + " " msg = msg + " " msg = msg + "" msg = msg + " " msg = msg + " " msg = msg + " " msg = msg + "" msg = msg + " " msg = msg + " " msg = msg + "" msg = msg + " " msg = msg + " " msg = msg + "" msg = msg + " " msg = msg + " " msg = msg + "" msg = msg + "" msg = msg + "" msg = msg + "" msg = msg + "" If chkids.Checked = True Then msg = msg + "" End If If chkmens.Checked = True Then msg = msg + "" End If If Chkldies.Checked = True Then msg = msg + "" End If If Chkldies.Checked = True And chkids.Checked = True Then msg = msg + "" End If If Chkldies.Checked = True And chkmens.Checked = True Then msg = msg + "" End If If chkids.Checked = True And chkmens.Checked = True Then msg = msg + "" End If If chkids.Checked = True And chkmens.Checked = True And Chkldies.Text = True Then msg = msg + "" End If msg = msg + "" msg = msg + " " msg = msg + " " msg = msg + " " msg = msg + " " msg = msg + "" msg = msg + " " msg = msg + " " msg = msg + " " msg = msg + "" msg = msg + "" msg = msg + "" msg = msg + "" msg = msg + "" msg = msg + "
FEEDBACK DETAILS
YOUR NAME

" msg = msg + " " & txtname.Text & "" msg = msg + "

COMPANY NAME
" msg = msg + " " & txtcaname.Text & "
DEPARTMENT
" msg = msg + " " & txtdept.Text & "
DESIGNATION
" msg = msg + " " & txtdesg.Text & "
ADDRESS
" msg = msg + "" & txtaddress.Text & "
PIN CODE
" msg = msg + " " & txtpincode.Text & "
COUNTRY
" & ddlcountry.SelectedItem.Text & "
TEL 1
" msg = msg + " " & txttel1.Text & " -" & txttel2.Text & "-" & txttel3.Text & "" msg = msg + "
TEL 2
" msg = msg + " " & txttel4.Text & " -" & txttel5.Text & "-" & txttel6.Text & "" msg = msg + "
Fax
" msg = msg + " " & txtfax1.Text & " -" & txtfax2.Text & "-" & txtfax3.Text & "" msg = msg + "
EMAIL
" msg = msg + " " & txtemail.Text & "
WEBSITE
" msg = msg + " " & txtweb.Text & "
NEAREST AIRPORT
" msg = msg + " " & txtairport.Text & "
COURIER COMPANY PREFERRED
" msg = msg + " " & txtccompanyname.Text & "
TYPE OF BUSINESS
" msg = msg + " " & ddlbus.SelectedItem.Text & "
MAIN INTEREST
" msg = msg + " " & chkids.Text & "
MAIN INTEREST
" msg = msg + " " & chkmens.Text & "
MAIN INTEREST
" msg = msg + " " & Chkldies.Text & "
MAIN INTEREST
" msg = msg + " " & Chkldies.Text & " ," & chkids.Text & "
MAIN INTEREST
" msg = msg + " " & Chkldies.Text & " ," & chkmens.Text & "
MAIN INTEREST
" msg = msg + " " & chkmens.Text & " ," & chkids.Text & "
MAIN INTEREST
" msg = msg + " " & chkmens.Text & " ," & chkids.Text & "," & Chkldies.Text & "
Average Quantity of Order per Style
" msg = msg + " " & ddlaverage.SelectedItem.Text & "
ACTION REQUIRED FROM US
Fabric TypeInterests
" msg = msg + " " & txtfabric.Text & "
Colours(if known)
" msg = msg + " " & txtcolours.Text & "
Styling Direction
" msg = msg + " " & txtstyling.Text & "
General
" msg = msg + " " & txtgenral.Text & "
COMMENTS / REQUESTS
" msg = msg + " " & txtrequest.Text & "
"