Assuming that your program structure is:
"\executable file directory\Docs"


Then it would be:
Dim strPath As String = Directory.GetCurrentDirectory() & "\Docs\a.doc"


Make sure you import System.IO.