Option Explicit
Private Type Persona
    nombre As String
    apellido As String
    Email As String
    Edad As Byte
End Type
Private Sub Form_Load()
    Dim Alguien As Persona
    Alguien.nombre = "Lolo"
    Alguien.apellido = "Peralta"
    Alguien.Email = "Lolo@gamail.com"
    Alguien.Edad = 25
    MsgBox "Nombre: " & Alguien.nombre & vbCrLf & "Apellido: " & Alguien.apellido _
        & vbCrLf & "Email: " & Alguien.Email & vbCrLf & "Edad: " & Alguien.Edad
End Sub

Option Explicit

'Primero escribes tu Enumeracion (Enum)
'Luego defines los valores de sus miembros
Private Enum TipoMensaje    'Aqui pones el nombre que quieras, igual modo para cada miembro
    Error = 16      'opcion 1 ----> vbCritical
    Exclamacion = 48    'opcion 2 ---->vbExclamation
    Informacion = 64    'opcion 3 ---->vbInformation
End Enum    'Fin del enum

Private Enum TipoResultado
    Si = 6
    No = 7
End Enum
Private Sub Form_Load()
    'Luego declaras tus variables asi:
    'dim Variables as MiEnum , en este caso Dim Resultado as TipoRespuesta
    Dim Resultado As TipoResultado
    'cuando quieras asignar un valor a la variable te saldra la lista
    'Aqui en esta llamada a Mensaje cuando escribas el 2do parametro te desplegarà
    'la lista de miembros del Enum (Error - Exclamacion - Informacion)
     Mensaje "Ejemplo de Enum", Informacion, "Ejemplo VB 6"
     Resultado = MensajeSiNo("¿Eres listo?", "Ejemplo")
     If Resultado = Si Then
        MsgBox "Ejegiste Si"
    ElseIf Resultado = No Then
        MsgBox "Ejegiste No"
    End If
    
End Sub


Private Function Mensaje(Texto As String, Estilo As TipoMensaje, Titulo As String)
    MsgBox Texto, Estilo, Titulo
End Function

'Aqui pones tu Funcion (...) as TuEnum para que tambien te despliegue la lista de miembros
Private Function MensajeSiNo(Texto As String, Titulo As String) As TipoResultado
    MensajeSiNo = MsgBox(Texto, vbYesNo, Titulo)
End Function