Me diste una idea y me resulto Thank's
asi lo deje
Select Case opciones
Case"1"
if valor1="" then correcto=False end if
Case"2"
if valor1="" then correcto=False end if
if valor2="" then correcto=False end if
Case"3"
if valor1="" then correcto=False end if
if valor2="" then correcto=False end if
if valor3="" then correcto=False end if
case"4"
if valor1="" then correcto=False end if
if valor2="" then correcto=False end if
if valor3="" then correcto=False end if
if valor4="" then correcto=False end if
Case Else
End Select
