Sub ModifySimpleForm() Dim sNewCaption As String Load frmSimpleForm sNewCaption = InputBox("Enter a caption for the form.") frmSimpleForm.Caption = sNewCaption frmSimpleForm.Show MsgBox "OK - same form again except with default caption", vbOKOnly frmSimpleForm.Show End Sub