При вводе слова в массив не позволить вводить цифры, пробел - VB

Формулировка задачи:

Разработать приложение для

создания массива данных

и поиска в ней

текстовой

информации по начальному символу. Проблема с первой частью задания. Нужно, чтобы при вводе отсеивались:

целые числа
десятичные дробные числа через запятую и точку(2,5 и 2.5)

Кроме того, когда данные не введены или введен "пробел", при нажатии на кнопку так же выдавалось сообщение "введите слово". При вводе текста типа "кот" у меня выделяет строку If Format(slovo.Text, "0.0") Then

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
If IsNumeric(slovo.Text) Or slovo.Text = "" Or slovo.Text = " " Then 'Or Format(slovo.Text, "0.0")
MsgBox "Введите слово!", vbExclamation, "Ошибка"
Else
If Format(slovo.Text, "0.0") Then
MsgBox "Введите слово!", vbExclamation, "Ошибка"
Else
spisok.AddItem slovo.Text
kolich = kolich + 1
chisarr(kolich) = slovo.Text
slovo.Text = ""
slovo.SetFocus
End If
End If
End Sub

Помогите исправить,пожалуйста

Решение задачи: «При вводе слова в массив не позволить вводить цифры, пробел»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
If IsNumeric(replace(slovo.Text,".",",")) Or slovo.Text = "" Or slovo.Text = " " Then
  MsgBox "Введите слово!", vbExclamation, "Ошибка"
Else
'  If Format(slovo.Text, "0.0") Then
'    MsgBox "Введите слово!", vbExclamation, "Ошибка"
'  Else
    spisok.AddItem slovo.Text
    kolich = kolich + 1
    chisarr(kolich) = slovo.Text
    slovo.Text = ""
    slovo.SetFocus
'  End If
End If
End Sub