Public blnOK As Boolean

Private Sub cmdOK_Click()
  blnOK = True
  Me.Hide
End Sub
 
Private Sub cmdCancel_Click()
  blnOK = False
  Me.Hide
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If UnloadMode = 0 Then
    blnOK = False
    Me.Hide
    Cancel = 1
  End If
End Sub

Public Function MyInputBox(ByVal strMessage As String, _
  ByVal strCaption As String, _
  ByRef strReturn As String, _
  Optional ByVal strDefault As String) As Boolean
 
  On Error Resume Next
  Dim fMessage As New frmMessage
  fMessage.lblMessage.Caption = strMessage
  fMessage.Caption = strCaption
  fMessage.txtInput.Text = strDefault
  fMessage.Show vbModal, Me
  If fMessage.blnOK Then
    strReturn = fMessage.txtInput.Text
    MyInputBox = True
  End If
  Unload fMessage
End Function

Dim strResult As String
If MyInputBox("Bitte Text eingeben", "Fenster-Titel", strResult, _
  "Vorgabe-Text") Then
  MsgBox strResult
End If

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.