Joining 2 sentences in VBA

[tigerdel]

OK so this is really annoying me

I am trying to add 2 sentences based on the result in a UserForm and if I use them separately they work fine but when I try to join them together the range[Terms] just shows FALSE so I have obviously done something wrong when joining them together.
If cmbDeposit.Value = "No" Then works fine
If cmbInterim.Value = 1 Then works fine

But

If cmbInterim.Value = 2 Then gives FALSE in the range

Any ideas please as I am tearing my hair out [what's left of it]

Private Sub cmdFinish_Click()
If cmbDeposit.Value = "No" Then
Worksheets("Quotation").Range("Terms") = "Payment is required in full within 7 days from the date of the Invoice"
Else
If cmbInterim.Value = 1 Then
Worksheets("Quotation").Range("Terms") = "The Deposit of £" & txtInterim1.Value & "must be paid prior to start of the work"
Else
[B][COLOR=rgb(226, 80, 65)]If cmbInterim.Value = 2 Then
MsgBox Worksheets("Quotation").Range("Terms") = "The Deposit of £" & txtInterim1.Value & " must be paid prior to start of the work" & vbCrLf & "The Deposit of £" & txtInterim2.Value & " is to be paid at the date agreed"[/COLOR][/B]
End If
End If
End If
End Sub
[/code}

Thanks for looking

 

[Yongle]

Try

Private Sub cmdFinish_Click()
    Select Case cmbDeposit.Value
        Case "No":  Worksheets("Quotation").Range("Terms") = "Payment is required in full within 7 days from the date of the Invoice"
        Case 1:     Worksheets("Quotation").Range("Terms") = "The Deposit of £" & txtInterim1.Value & "must be paid prior to start of the work"
        Case 2:     MsgBox Worksheets("Quotation").Range("Terms") = "The Deposit of £" & txtInterim1.Value & " must be paid prior to start of the work" & vbCrLf & "The Deposit of £" & txtInterim2.Value & " is to be paid at the date agreed"
    End Select
End Sub

 

[tigerdel]

Thanks Yongle