Você pode tanto pegar o path do arquivo e tratar:
Dim caminhoArquivo, segmentosCaminhoArquivo, nomeArquivo, caminhoPastaAtual
caminhoArquivo = Wscript.ScriptFullName
segmentosCaminhoArquivo = Split(caminhoArquivo, "\")
nomeArquivo = segmentosCaminhoArquivo(UBound(segmentosCaminhoArquivo))
caminhoPastaAtual = Left(caminhoArquivo, Len(caminhoArquivo) - Len(nomeArquivo))
Ou até mesmo pegar o diretório atual ao instanciar um objeto:
Set objShell = CreateObject(“Wscript.Shell”)
caminhoPastaAtual = objShell.CurrentDirectory
A partir daí, você pode usar o caminho relativo com:
caminhoOutraPasta = caminhoPastaAtual & "..\pastaIrma\"
caminhoOutraPasta2 = caminhoPastaAtual & "pastaFilha"
Espero ter ajudado \o/