Option Explicit
Dim gesPfad As String
Dim Pfad As String
 
Private Sub Form_Load()
gesPfad = App.Path
Pfad = Left (gesPfad, 1) 
' Geht nur falls Laufwerksbuchstabe einstellig ist, wei D, E usw. 
' falls es doch noch möglich ist (geht glaube ich net) es größer 
'als zweistellig zu machen, dann muss der code so aussehen:
 
'### Beginn ####
 
' Option Explicit
' Dim gesPfad As String
' Dim Pfad As String
' Private Sub Form_Load()
' gesPfad = App.Path
' Pfad = Left (gesPfad, InStr (1, gesPfad, ":", vbBinaryCompare) -1)
 
End Sub