I use

ActiveWorkbook.Path

However this gives an empty string if the workbook  is a new one which has not
been saved.

Note that this does not include a trailing "\" so you need to add this if you
are constructing a path  and filename string.

ThisWorkbook.Path returns the path  of the workbook  containing that code.

ActiveWorkbook.Path returns the path of the active workbook.

If the workbook has not yet been saved, no path is returned.

Try this

Private Sub ABC( )
Dim posn As Integer, i As Integer
Dim flName As String
Dim fPath As String ' path  of file

flName = ThisWorkbook. FullName

posn = 0

For i = 1 To Len(flName)
If (Mid(flName, i, 1) = "\") Then posn = i
Next i

fPath = Left(flName, posn - 1)
msgbox fpath

End Sub