Private Sub btnRequest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRequest.Click
' Declarations

        Dim January As Date
        Dim Feburary As Date
        Dim March As Date
        Dim April As Date
        Dim May As Date
        Dim June As Date
        Dim July As Date
        Dim August As Date
'
        cmbMonth.Text = January
        cmbMonth.Text = Feburary
        cmbMonth.Text = March
        cmbMonth.Text = April
        cmbMonth.Text = May
        cmbMonth.Text = June
        cmbMonth.Text = July
        cmbMonth.Text = August

        Dim Eastern As String
        Eastern = cmbConvertFrom.Text
        Dim Caribbean As String
        Caribbean = cmbConvertFrom.Text
        Dim Spain As String
        Spain = cmbConvertFrom.Text
        Dim Trinidad As String
        Trinidad = cmbConvertFrom.Text
        Dim Tobago As String
        Tobago = cmbConvertFrom.Text

'Validation code, If user chooses the same ctring values for "ConvertFrom and Convert To combo boxes"

        If cmbConvertFrom.Text = Trinidad And Tobago And cmbConvertTo.Text = Trinidad And Tobago Then
            MessageBox.Show ("Please ensure that countries are different.",_"My Application", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1) = DialogResult.OK

        End If

        If cmbConvertFrom.Text = Spain And cmbConvertTo.Text = Spain Then
            lblError1.Text = ("Please ensure that countries are different")
        Else
        End If

'Declaring and assigning values to my Array
        Dim USagainstTT(6) As String

        USagainstTT(0) = "6.05"
        USagainstTT(1) = "6.10"
        USagainstTT(2) = "6.15"
        USagainstTT(3) = "6.20"
        USagainstTT(4) = "6.25"
        USagainstTT(5) = "6.30"

        Dim ECagainstTT(6) As String
        ECagainstTT(0) = "2.26"
        ECagainstTT(1) = "2.28"
        ECagainstTT(2) = "2.30"
        ECagainstTT(3) = "2.32"
        ECagainstTT(4) = "2.34"
        ECagainstTT(5) = "2.36"

"Requesting the rates of conversion assigned to arrays

        If cmbMonth.Text = January Then
            lblRate.Text = USagainstTT(4)
        Else
        End If
        If cmbMonth.Text = Feburary Then
            lblRate.Text = USagainstTT(4)
        Else
        End If

        If cmbMonth.Text = March Then
            lblRate.Text = USagainstTT(4)
        Else
        End If

        If cmbMonth.Text = April Then
            lblRate.Text = USagainstTT(4)
        Else
        End If

        If cmbMonth.Text = May Then
            lblRate.Text = USagainstTT(4)
        Else
        End If
        If cmbMonth.Text = June Then
            lblRate.Text = USagainstTT(4)
        Else
        End If

        If cmbMonth.Text = July Then
            lblRate.Text = USagainstTT(4)

            If cmbMonth.Text = August Then
                lblRate.Text = USagainstTT(4)
            Else
            End If
        End If

        
    End Sub

MessageBox.Show ("Please ensure that countries are different.", "My Application", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1) = DialogResult.OK

cmbMonth.Items.Add(January)
cmbMonth.Items.Add(February)
' etc...

If cmbMonth.Text = January Then
    lblRate.Text = USagainstTT(4)
Else
End If

        With cmbMonth
                .Items.Add("January")
                .Items.Add("February")
                ' etc...
        End With
 
        ' ...
 
        If cmbMonth.Text = "January" Then
                lblRate.Text = USagainstTT(4)
        End If
 
        ' etc...