VBA Passwort unsichtbar eingeben

ich möchte in Excel Textdateien von einer AS400 importieren.
Dazu ist die Verbindung über ein Netzlaufwerk nötig.
Beim herstellen der Verbinbindung wird der User und das Passwort abgefragt. Es ist möglich per API dem Username auszulesen.
Wie kann ich per Inputbox das Passwort eingeben ohne das es sichtbar wird?
Oder ist es möglich auch das Passwort per API zu ermitteln?

Option Explicit
Declare Function WNetGetUser Lib "mpr.dll" _
  Alias "WNetGetUserA" (ByVal lpName As String, _
     ByVal lpUserName As String, lpnLength As Long) As Long
Private Const NoError = 0

Private Function NTKennung()
  Const lpnLength As Integer = 255
  Dim status As Integer
  Dim lpName, lpUserName As String
  lpUserName = Space$(lpnLength + 1)
  status = WNetGetUser(lpName, lpUserName, lpnLength)
  If status = NoError Then
    lpUserName = Left$(lpUserName, InStr(lpUserName, Chr(0)) - 1)
  End If
  NTKennung = lpUserName
End Function