Посчитать количество символов во втором слове - VB

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

все в вижуал бэйсике 1. задание нужно с помощью массива найти наиболее часто повторяющееся число 2.дана строка нужно посчитать количество символов во втором слове вот моя программа

                    Листинг программы
                
 
                        
                          
                    
cls
input x$
m$=x$+" "
y=len(x$)
c=instr(1,m$," ")
b=instr(y,m$," ")
z=b-c-1
print z

она работает только когда 2 слова в строке,а когда больше не работает...помогите пожалуйста я не понимаю ,что исправить нужно,видимо что-то со вторым пробелом,уже 3 дня с ней с ума схожу... буду очень благодарна!!!

Решение задачи: «Посчитать количество символов во втором слове»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Private Sub Комманда1_Click()
Dim M(9)
Dim NN
Dim N
Dim J
Dim C
Dim T
Randomize
NN = Int(500 * Rnd + 300)
For J = 1 To NN
T = Int(10 * Rnd)
        For C = 0 To 9
        If T = C Then M(C) = M(C) + 1
        Next C
Next J
N = M(0)
T = 0
        For C = 0 To 9
        If M(C) > N Then N = M(C): T = C
        Next C
   J = "Проверено " & NN & " чисел"
        For C = 0 To 9
       J = J & vbCrLf & " число  " & C & "  встречается  " & M(C) & "  раз"
        Next C
     J = J & vbCrLf & "Чаще всего  (" & N & ") раз встретилосись число  " & T
MsgBox J, 64, "Так-то вот"
End Sub