Can someone tell me please what is wrong about this VBScript? I get an 800A03F6 Error teh whole time.

A=InputBox("What is your name?")
MsgBox"Is your name" +a,VBYesNO,"You're sure?"
if VBYes then
MsgBox"Nice to meet you," +a,0,"Nice!"
if VBNo then
B=InputBox("Then what is you're name?")
MsgBox"Nice to meet you,"+b
End if