Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Слово As String = InputBox("Введите слово")
Label1.Text = Len(Слово)

End Sub

Итак, что есть что в данном коде. Сначала мы задаем переменную Слово типа строковой и приравниваем к ней значение InputBox для того, чтобы в переменной Слово запомнилось значение, вписанное в окно InputBox. А затем после введения слова в окно InputBox и нажатия ОК, в метке Label1 появится цифра, показывающая длину введенного вами слова (длина здесь определяется с помощью оператора Len).

Эту програмку можно записать короче и без использования переменной:

Label1.Text = Len(InputBox("Введите слово"))

В любом случае у вас должно получиться наподобие того, как показано на следующих 2-х картинках

Вот и всё

Автор: shareware