Private Sub cmdOK_Click() Dim dValue As Double dValue = txtValue.Text MsgBox prompt:="TextBox-Wert: " & dValue Unload Me End Sub