'InputBox einrichten und aufrufen
 
Public Function getinput(Title As String, Prompt As String, ButtonNameA As _
  String, _
ButtonNameB As String, Optional PosX As Single, Optional PosY As Single, _
Optional HiddenText As Boolean, Optional PasswordChar As String) As String
 
   frmInput.Caption = Title
   frmInput.txtInfo = Prompt
   frmInput.cmdCancel.Caption = ButtonNameA
   frmInput.cmdCancel.Caption = ButtonNameB
 
   If Not PosY = 0 Then
      frmInput.Top = PosY
   End If
 
   If Not PosX = 0 Then
      frmInput.Left = PosX
   End If
 
   If HiddenText = True And Not PasswordChar = "" Then
      frmInput.txtInput.PasswordChar = PasswordChar
   Else
      frmInput.txtInput.PasswordChar = ""
   End If
   
   frmInput.Show vbModal 'nach dieser Zeile soll die Function pausiert werden.
 
    getinput = readtextbox(frmInput.txtInput) ' Hier wird die 2. 
   ' Function aufgerufen.
 
End Function

Public Function readtextbox(SourceTextbox As TextBox) As String
   readtextbox = SourceTextbox.Text
 
End Function