Private Sub CmdbKonfig_Click() ' Ordner-Auswahl-Dialog aufrufen
    Dim oShell As Object
    Dim oFolder As Object
 
    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.BrowseForFolder(0, "Bitte einen Ordner auswählen", 1)
 
    Dim regfpad As String
    Dim Wert As String
    Dim a
 
    TVStartMask.SelectedItem.Text = oFolder.Self.Path
    regfpad = "HKEY_CURRENT_USER\Software\Autodesk\DB_Blockverwaltung\" & _
      TVStartMask.SelectedItem.Tag
    Wert = TVStartMask.SelectedItem.Text
    a = RegWrite(regfpad, Wert, "REG_SZ")
End Sub

Public Sub UserForm_Initialize()
Dim regpfad As String
Dim Wert As String
regpfad = TVStartMask.Node?.Tag = DeckenstrahlerKF =  C:\Blockpfad1
etc.
End Sub