Генератор - VB

Формулировка задачи:

Создать программу , генератор 15ти значного кода . Эти числа " 3 5 8 10 14 " должны быть в коде числами , а остальные заглавные буквы . Примерно хотелось бы , чтобы конечный результат выглядел так : NB2N4-HU2D3-NTK3N

Решение задачи: «Генератор»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim WithEvents Button As CommandButton
Private Sub Button_Click()
    Dim I As Long, C As String
    For I = 0 To 14
        If I And (I Mod 5) = 0 Then C = C & "-"
        Select Case I
        Case 2, 4, 7, 9, 13
            C = C & CStr(Int(Rnd * 10))
        Case Else
            C = C & Chr$(Int(Rnd * 26) + 65)
        End Select
    Next
    MsgBox C
End Sub
Private Sub Form_Load()
    Dim Z As Long
    Set Button = Me.Controls.Add("VB.CommandButton", "Tmr")
    With Button: .Visible = True: .Caption = "Generate!!!"
    .Move (Me.ScaleWidth - .Width) / 2, (Me.ScaleHeight - .Height) / 2: End With
End Sub
                        