Call Two Macros using IF condition

[gvreddyhr]

Hi,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
Thank you all for your timely support, I want to call two macros based on if condition, but I am not able to do it, can anyone tell me where am I going wrong..<o></o>

[SIZE=3][FONT=Calibri]Sub 2macrosusingif ()<o:p></o:p>[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Dim MyInput<o:p></o:p>[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]MyInput = InputBox("Please Specify which macro needs to be called (send , Display) ")<o:p></o:p>[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]If Myinput = Send then<o:p></o:p>[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Call Send()<o:p></o:p>[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Else if MyInput = Display then<o:p></o:p>[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Call Display()<o:p></o:p>[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]End if<o:p></o:p>[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]End Sub<o:p></o:p>[/FONT][/SIZE]

 

[VoG]

Try like this

Sub macrosusingif()
Dim MyInput As String
MyInput = InputBox("Please Specify which macro needs to be called (Send or Display) ")
If MyInput = "Send" Then
    Call Send
ElseIf MyInput = "Display" Then
    Call Display
End If
End Sub