select case b
   case 9
        testout("9")
 
   case 10
        testout("10")
 
end select

Sub testout(ou1 as string)
        If IsValue("Software\Microsoft\Office\" & ou1 & "\Outlook\Preferences", _
          "MinToTray") Then
           End If
end sub