persistent prompt for input

[iisailor]

i have a series of sub routines that work together to form one macro with the purpose of searching through a sheet, gathering results, putting these in the body of an outlook email then prompting the user for an email address and subject.
My question though is how to get my code to repeatedly prompt the user for these details. At best i currently have:

.Subject = InputBox(prompt:="Please enter email subject for:")
            If .Subject = 0 Then 'Cancel
                Exit Sub
                Else
                    If .Subject = "" Then
                    .Subject = InputBox(prompt:="Please enter email subject")
                    .Subject = True
                    End If
                End If

This ony prompts the user once for details and if they dont enter any they can stil continue. In shot i want to make the user have to enter an address and subject.
Any thoughts?

 

[Andrew Poulsom]

Example:

Sub Test()
    Dim Ans As Variant
    Do
        Ans = InputBox("Enter something")
        If Ans <> "" Then Exit Do
    Loop
    MsgBox Ans
End Sub