Generador de Códigos de Autorización

[Judgement]

¿Cómo puedo colocar el serial generado en un textbox?

Código vb:

Private Sub BtnGenerar_Click()
 
    Dim LimiteInferior As Integer
    Dim LimiteSuperior As Integer
    Dim CadenaDate As String
    Dim CadenaRand As Integer
    Dim CadenaFinal As Integer
    
    Dim strSerial As String
    'Randomize
    
    LimiteInferior = 1000
    LimiteSuperior = 9999
    
    CadenaDate = Mid(Date, 1, 2) & Mid(Date, 4, 2) & Mid(Date, 7, 4)
    CadenaRand = Int((LimiteInferior - LimiteSuperior + 1) * Rnd + LimiteInferior)
  
    strSerial = DriveSerial("C") & CadenaDate & CadenaRand
    MsgBox "Por favor, envíanos este número para generar tu Código de Autorización. " & strSerial
    Text1.Text = strSerial
End Sub
 

y como almacenar ese serial en alguna variable para luego hacer el código de activación?

Como puedes ver en el codigo anterior, el serial es almacenado en la variable strSerial, ya depende si el codigo lo vas a realizar dentro de este boton, o necesites declarar la variable a nivel de modulo para que todos tus procedimientos de este modulo (formulario) puedan tener acceso a esa variable.

Espero que te sea de utilidad.