Помогите в написании программы на Basic, в Visual Basic

Тут ошибка элементарная. Если у тебя оператор If на много строк, то первая строка должна заканчиваться словом Then. А вот следующие ElseIf можно попробовать писать в одну строку.
Else должен быть в отдельной строке, это ты правильно написал.

a = InputBox("Введите слово")
If a = "Привет" Then
MsgBox ("Привет")
ElseIf a = "Здраствуйте" Then MsgBox ("Здраствуйте")
ElseIf a = "Добрый день" Then MsgBox ("Салют")
ElseIf a = "Приветик" Then MsgBox ("Салют")
ElseIf a = "Салют" Then MsgBox ("Салют")
ElseIf a = "Здравия желаю" Then MsgBox ("Вольно")
Else
MsgBox ("Я вас не понимаю")
End If
End Sub

если память не изменяет то ElseIf пишется раздельно )))

Необходимо последнее Else перенести в конец строки предыдущей.

Private Sub Command1_Click()
a = InputBox("Введите слово")
If a = "Привет" Then MsgBox ("Привет") Else
If a = "Здраствуйте" Then MsgBox ("Здраствуйте") Else
If a = "Добрый день" Then MsgBox ("Салют") Else
If a = "Приветик" Then MsgBox ("Салют") Else
If a = "Салют" Then MsgBox ("Салют") Else
If a = "Здравия желаю" Then MsgBox ("Вольно") Else
MsgBox ("Я вас не понимаю")
End
End Sub

Можно и без Else, т. е.
Private Sub Command1_Click()
a = InputBox("Введите слово")
If a = "Привет" Then MsgBox ("Привет")
If a = "Здраствуйте" Then MsgBox ("Здраствуйте")
If a = "Добрый день" Then MsgBox ("Салют")
If a = "Приветик" Then MsgBox ("Салют")
If a = "Салют" Then MsgBox ("Салют")
If a = "Здравия желаю" Then MsgBox ("Вольно") Else
MsgBox ("Я вас не понимаю")
End
End Sub