Shorten OptionButton code

[Drmwvr7266]

Is there a way to shorten this code? I'm assuming that maybe if I used a group name, such as "widgets", that I can shorten it.


Private Sub Commandbutton1_Click()

If OptionButton1.Value = True Then
Topleft
Exit Sub
Else
If OptionButton2.Value = True Then
TopRight
Exit Sub
Else
If OptionButton3.Value = True Then
Bottomleft
Exit Sub
Else
If OptionButton4.Value = True Then
BottomRight
Exit Sub
Else
If OptionButton5.Value = True Then
Deadcenter
Exit Sub
Else
MsgBox "You need to select a position for your message", , "Select Position"
End If
End If
End If
End If
End If

End Sub


Any ideas?

 

[Andrew Poulsom]

You can use ElseIf:

Private Sub Commandbutton1_Click() 
   If OptionButton1.Value = True Then 
      Topleft 
   ElseIf OptionButton2.Value = True Then 
      TopRight 
   ElseIf OptionButton3.Value = True Then 
      Bottomleft 
   ElseIf OptionButton4.Value = True Then 
      BottomRight 
   ElseIf OptionButton5.Value = True Then 
      Deadcenter 
   Else
      MsgBox "You need to select a position for your message", , "Select Position" 
   End If 
End Sub

 

[Legacy 98055]

I don't know that this is any more efficient, but it is easier to read.
<pre>
Private Sub Commandbutton1_Click()
Select Case True
Case OptionButton1.Value: Topleft
Case OptionButton2.Value: TopRight
Case OptionButton3.Value: Bottomleft
Case OptionButton4.Value: BottomRight
Case OptionButton5.Value: Deadcenter
Case Else: MsgBox "You need to select a position" & _
" for your message", , "Select Position"
End Select
End Sub

</pre>
Tom