TxtBoxin merkkien määrä?

tee lomakkeelle tekstiruutu ja komentopainike oletusnimillä

pituus - Len(TextBox1.Text)
ja valitsee koko tekstin ja muuttamalla esim. TextBox1.SelStart=2
TextBox1.SelLength=2
tekstistä merkit 3-4

Private Sub CommandButton1_Click()
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End Sub

vastaavasti solusta - Len(Range("A1"))

sub Koe()
MsgBox Len(Range("A1"))
End sub