#If Win64 Then
  Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
#Else
  Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

Sub Programm()

   Dim MyWinID, Password

   MyWinID = ("Регистрация")         'Указываем название окна
   Password = "password"                'Указываем пароль
   
'Запускаем ярлык программы

   Shell "explorer.exe C:\*.lnk", vbNormalFocus
   
'Ищем окно

   hwnd = FindWindow(vbNullString, MyWinID)

'Выполняем поиск окна пока оно не найдено

   Do While (hwnd = 0)
        hwnd = FindWindow(vbNullString, MyWinID)
        If hwnd <> 0 Then
        Exit Do
        End If
   Loop

'Активируем найденное окно и вводим пароль, при условии что логин уже введен

        Application.Wait Time:=Now + TimeValue("0:00:02")
        AppActivate MyWinID
        SendKeys "{TAB}"                  
        SendKeys Password
        SendKeys "{ENTER}"
       
End Sub

Sub Programm()

Shell "explorer.exe c:\...*.lnk", vbNormalFocus
     Application.Wait Time:=Now + TimeValue("0:00:10")
          SendKeys "{TAB}"
          SendKeys "password"
          SendKeys "{ENTER}"
End Sub