[VBA] Exporter une variable d'un userform

Private maVariable As String

Public Sub setMaVariable(ByVal str as String)   'En écriture
    maVariable = str
End Sub
Public Function getMaVariable() As String       'En lecture
    getMaVariable = maVariable
End Function

Private sous_res As String

Public Sub setsous_res(ByVal str As String)
sous_res = str
End Sub

Public Function getsous_res() As String

    getsous_res = sous_res
End Function

Private Const SC_CLOSE = &HF060&
Private Const MF_BYCOMMAND = &H0&

Private Declare Function GetSystemMenu Lib "user32" _
        (ByVal hwnd As Long, ByVal bRevert As Long) As Long
        
Private Declare Function RemoveMenu Lib "user32" _
        (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Declare Function FindWindowA Lib "user32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  
  
  Private Sub UserForm_Initialize()
Dim hSysMenu As Long
Dim MeHwnd As Long

    MeHwnd = FindWindowA(vbNullString, Me.Caption)
    If MeHwnd > 0 Then
        hSysMenu = GetSystemMenu(MeHwnd, False)
        RemoveMenu hSysMenu, SC_CLOSE, MF_BYCOMMAND
    Else
        MsgBox "Handle de " & Me.Caption & " Introuvable", vbCritical
    End If
    
End Sub

Private Sub sr251_click()
Call Doc.setsous_res("251")
Unload Me
End Sub
Private Sub sr252_click()
Call Doc.setsous_res("252")
Unload Me
End Sub
Private Sub sr253_click()
Call Doc.setsous_res("253")
Unload Me
End Sub

Private conf(429) As String

Public Sub setConf(ByVal i As Integer, ByVal str As String)
    conf(i) = str
End Sub
Public Function getConf(ByVal i As Integer) As String
    getConf = conf(i)
End Function

Public Sub setConf(ByVal i As Integer, ByVal str As String)
    conf(i) = str
End Sub

Public Function getConf(ByVal i As Integer) As String
    getConf = conf(i)
End Function

conf1 = "blabla"

conf2 = "blibli

...

conf400 = "bloblo"


conf = conf1 & conf2 & conf3 & conf4 ... & conf400

Private nbConf As Integer

nbConf = 1

Call setConf(nbConf, "blabla")
nbConf = nbConf + 1

For i = nbConf to 400
    conf = conf & conf(i)
Next i