Где ошибка в задаче по Бейсик

Private Sub Command1_Click()
im = InputBox("как тебя зовут? ")
If im = Коля Then
MsgBox "Привет Коля"
ElseIf im = Вася Then
MsgBox "Здорово Вася"
Form1.BackColor = vbRed
ElseIf im = Дима Then
MsgBox "Хаюшки Димон"
ElseIf im <> Вася & im <> Коля & im <> Дима Then
MsgBox "Здрасте"
End If
End Sub