Private Declare Function GetModuleHandle Lib "kernel32.dll" Alias _
  "GetModuleHandleA" ( _
     ByVal lpModuleName As String) As Long
 
Private Declare Function GetModuleFileName Lib "kernel32.dll" Alias _
  "GetModuleFileNameA" ( _
     ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As _
     Long
 
 
Private Sub Form_Load()
   Dim hModule As Long
   Dim Buffer As String
 
   Buffer = Space(256)
 
   hModule = GetModuleHandle(vbNullString)
   GetModuleFileName hModule, Buffer, 256
 
   MsgBox Buffer, , "Zeige Applikation-Pfad und Name"
End Sub

Wird schon schief gehen ;)
Murphie