Forms VisualBasic Script

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