Absolute path of a file

This program gets the absolute path of a file

Dim objfso As New FileSystemObject
Dim strPath As String
strPath = objfso.GetAbsolutePathName("D:\\\Test.txt")
MsgBox (strPath)

End Sub