snippetsmania.com
Post and share your code snippets

If DonorType(0).Checked Then
If Dialog("donorType") <> "" And Dialog("donorType") <> typeIndividual Then
ResetDialogInfo
End If
Dialog("donorType") = typeIndividual
Dialog.GoNext("dialog-new-ind1.htm")
Else
If Dialog("donorType") <> "" And Dialog("donorType") <> typeOrganization Then
ResetDialogInfo
End If
Dialog("donorType") = typeOrganization
Dialog.GoNext("dialog-new-org1.htm")
End If

source