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

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