Declare Function GetConsoleTitle Lib "kernel32" Alias "GetConsoleTitleA" (ByVal lpConsoleTitle As String, _ ByVal nSize As Long) As Long
GetConsoleTitle получает заголовок текущей консоли.
В успешном случае возвращается число символов строки, помещенной в буфер. В случае ошибки возвращается 0 (для получения кода ошибки используйте GetLastError)
Смотри пример console.zip