String Character Length?

I'm trying to figure out how to calculate the character length of a string entered through an input box. so if the input is "ab" i want to have '2' and if its "ah4ifd" i want to have '6'. Any easy code to do this?

Try this:

Sub FindLen()

Dim x As Variant

x = InputBox("Enter Data ")
MsgBox ("Length is :-   " & Len(x))

End Sub