Sub lol()
Dim nr As Integer
nr = ThisDrawing.Utility.GetInteger("1/2/3")
Select Case nr
Case 1
a
Case 2
b
Case 3
c
Case Else
MsgBox "Nie wybrano"
End Select
End Sub
Function a()
MsgBox "a"
End Function
Function b()
MsgBox "b"
End Function
Function c()
MsgBox "c"
End Function