VBA.Считать значение

[mining]

Как заставить vba считывать из msgbox текстовое значение и на основание этого значения выбирать лист в эксель?
То есть если в первом окне прописать книга,во втором война и мир,он записывал бы название книги на первый лист,а если журнал и за рулем соответственно на второй?

Вот примерный код,но ума не приложу,может ли на основании текста выбирать лист эксель.

Public Sub laba32()
Dim i As Integer, v, d As String


v = (InputBox("Введите шифр "))
If v = худ Then
i = 1
ElseIf v = спр Then
i = 2
Else: i = 3
End If

d = InputBox("Введите название книги ")
Worksheets(i).Select



ActiveCell.Value = d
ActiveCell.Offset(1, 0).Select






End Sub

Само задание вот

Пользователь вводит в окно Inputbox шифр книги, состоя-щий из трех букв русского ал-фавита. Буквы обозначают категорию книги – (ХУД-худ. литература СПР- справочник УЧБ- учебник), в следующее окно Inputbox вводится назва-ние. Название записывается в ячейки 1 столбца на лист с соответствующим именем

[DiemonStar]

Sub AddBook()
Dim R As Range
On Error GoTo Err
  Set Sh = Sheets(InputBox("Введите шифр:", "Добавление книги"))
  S = InputBox("Введите название книги:", "Добавление книги")
  If Sh.[A:A].Find(S) Is Nothing Then
    Sh.Range("A" & Rows.Count).End(xlUp).Offset(1) = S
  End If
  Exit Sub
Err:
  MsgBox "Недействительный шифр"
End Sub

попробуйте так