Private Sub MakeBackup(ByVal Pfad As String, _
  ByVal SubOrdner As String)
 
 ....
 
  ' Sicherungsmedium auswählen  
  Load BackupLaufwerkBox
  With BackupLaufwerkBox
    If SubOrdner <> "\" And SubOrdner <> "" Then
      .Text1 = "\" + SubOrdner  ' Hier die Fehlermeldung
    End If
    .Show 1
    ZielLW = .Tag
    SubOrdner = .Text1
  End With
  Unload BackupLaufwerkBox
  Me.Refresh
 
 ....
 
End Sub

Uli

Wissen ist Macht; nichts wissen macht auch nichts!