Erro de execução do BASIC

[Router]

Estou criando um sistema de validação de usuário seguindo um vídeo no youtube, mesmo digitando tudo certo ocorre esse erro, alguem consegue me ajudar ?

em baixo estarei colocando as linhas de programação

Erro de execução do BASIC.
Ocorreu uma exceção
Type: com.sun.star.container.NoSuchElementException
Message: .

Sub ValidarUsuario()

	FuncService = CreateUnoService("com.sun.star.sheet.FunctionAccess")
	plan_usuarios = ThisComponent.Sheets.GetByName("txtUsr")

	If frmLogin.GetControl("txtUsr").Text = "" Then
		usuario_ativo = "invalido"
		MsgBox ("Informe um nome de usurário válido para acessar ao sistema!", 64 + 0, "Nome de usuário não informado!")
		frmLogin.GetControl("txtUsr").SetFocus: Exit Sub

[schiavinatto]

De o link do vídeo.

[Router]

@schiavinatto Segue o link abaixo

Tela de login - parte 2

em seguida da esse erro

[schiavinatto]

Ops… manda o arquivo também, assim não preciso monta-lo.