下記を試して見て下さい。Private Sub Command1_Click() Text1.Text = Chr(9) & Chr(9) Debug.Print Len(Text1.Text) Debug.Print Len(Trim$(Replace(Text1.Text, Chr(9), "")))End Sub