Вставка в поле ввода, того текста который в скрипте

strTextToCB = "КОПИРУЕМ"
CreateObject("WScript.Shell").Run "mshta.exe ""javascript:clipboardData.setData('text','" & StrTextToCB & "');close();""", 2
 
Аналог
nircmd.exe clipboard set "КОПИРУЕМ"

Const Pass = "123456"
 
With CreateObject("htmlfile")
  Y = 96/.Parentwindow.Screen.deviceYDpi
  Y = 15*Y*(.Parentwindow.Screen.Height-188*Y)/2
End With
 
Pass = Trim(InputBox(String(5, vbCr) & "Введите пароль:", " Заголовок", Pass,, Y))
 
If Pass <> "" Then MsgBox Pass, 262208, " Ваш пароль"

Dim fso,TestFile,fileName,drvName,fldName
fileName = InputBox("Мой логин","Creator","логин")
fileName = InputBox("И пароль","Creator","пароль")
If fileName = Empty Then
End If

Login = "Vasya"
Pass = "123456"
 
With CreateObject("htmlfile")
   Y = 96/.Parentwindow.Screen.deviceYDpi
   Y = 15*Y*(.Parentwindow.Screen.Height-188*Y)/2
End With
 
Login = Trim(InputBox(String(5, vbCr) & "Введите логин:", " Авторизация", Login,, Y))
Pass  = Trim(InputBox(String(5, vbCr) & "Введите пароль:", " Авторизация", Pass,, Y))
 
If Pass <> "" And Login <> "" Then MsgBox "Логин: " & Login & vbLf & "Пароль: " & Pass, 262208, " Ваш логин и пароль"