counting the number of characters in a cell w text

If I have a cell selected with text in it, is there a way to count how many characters it has via vb. How about characters and spaces?

Thank you.

How about...

Sub CountCell()
    Dim rng As Range
    Dim ans As Long
    Set rng = Sheets("Sheet1").Range("A1")
    ans = Len(rng)
    MsgBox ans
End Sub

If you want to do the active cell then update with

Set rng = ActiveCell

Great! Thank you.

You're welcome...Glad it helped