Dim valor(90), numero As Integer
        Dim random As New Random
        Dim lbl1, lbl2, lblMes, lblAno, lblCVV As New Label
        Dim lblArmazena As New Label
        Dim txtArmazena As New TextBox
        Try
            For n = 1 To 9 Step 1 'Valor 1
                numero = random.Next(1000, 9999)
                valor(n) = numero
            Next

            lbl1.Text = valor(1)

            For n = 1 To 9 Step 1 'Valor 2
                numero = random.Next(100000, 999999)
                valor(n) = numero
            Next

            lbl2.Text = valor(1)

            For n = 1 To 9 Step 1 'Valor Mês
                numero = random.Next("0" + 1, 12)
                valor(n) = numero
            Next

            lblMes.Text = valor(1)

            For n = 1 To 9 Step 1 'Valor Ano
                numero = random.Next(2017, 2026)
                valor(n) = numero
            Next

            lblAno.Text = valor(1)

            For n = 1 To 9 Step 1 'Valor CVV
                numero = random.Next(100, 999)
                valor(n) = numero
            Next

            lblCVV.Text = valor(1)

            'ADICIONANDO CCS GERADAS NA TEXTBOX

            txtCC.Text += txtBin.Text + lbl1.Text + lbl2.Text & "|" & lblMes.Text & "|" & lblAno.Text & "|" & lblCVV.Text & " |" & vbCrLf

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, Title:=ex.InnerException)
        End Try