[SOLUCIONADO] Mostrar Nombre De La Ventana Activa

Estoy intentando en No tienes permitido ver enlaces. Registrate o Entra a tu cuenta que me saque un mensaje con la ventana que tengo activa pero no tengo mucha idea asi que he cogido a San Google y me he puesto a leer y leer pero me quedan muchas dudas asi pues escribo para ver si me hechais una mano.
Creo un timer y dentro de ese evento declaro 3 variables:
Dim numerodeproceso As Long
Dim longituddeltexto As Long
Dim textodelaventana As String
Almaceno con 3 funciones que he visto en google para ver si consigo el texto de la ventana activa:
numerodeproceso = GetForegroundWindow
longituddeltexto = GetWindowTextLength(numerodeproceso) + 1
textodelaventana = Space(longituddeltexto)

Me casca en la funcion space al recoger el long.

Alguien me ayuda en No tienes permitido ver enlaces. Registrate o Entra a tu cuenta paso a paso a mostrar en un msg(ventanaactiva).

Hola brother, estube intentando lo mismo, pero te recomendaria hacerlo con los procesos, pero tubieras que poner un Timer que haga un bucle cada 5 o 10 segundos, cualquier duda enviame un MP

Option Explicit
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, _
             ByVal lpString As String, ByVal cch As Long) As Long
Private Sub Form_Click()
    Dim LongitudNomVentana As Long, NomVentana As String, Manejador As String
    NomVentana = Space$(255)
    Manejador = GetActiveWindow()
    LongitudNomVentana = GetWindowText(GetActiveWindow(), NomVentana, 255)
    MsgBox Left(NomVentana, LongitudNomVentana)
End Sub