VB - Pfad der eigenen Anwendung bestimmen

Public Function Getselfdirectory() As String
        Dim strselfdirectory As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)
        strselfdirectory = strselfdirectory.Replace("file:\", " ")
        strselfdirectory = Trim(strselfdirectory)
        If strselfdirectory.EndsWith("\") Then
            If strselfdirectory.Contains(":") Then
                Return strselfdirectory
            Else
                strselfdirectory = "\\" & strselfdirectory
                Return strselfdirectory
            End If
            Return strselfdirectory
        Else
            If strselfdirectory.Contains(":") Then
                Return strselfdirectory & "\"
            Else
                strselfdirectory = "\\" & strselfdirectory & "\"
                Return strselfdirectory
            End If
            Return "\\" & strselfdirectory & "\"
        End If
        Return strselfdirectory
End Function